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ABSTRACT 

A  finite  analytic  solution  for  three  dimensional .unsteady  laminar  ano 
turbulent  flow  is  derived  on  a  curvilinear  body-fitted  coordinate  system  so  that 
the  flow  past  an  arbitrary  body  shape  can  be  predicted  and  solved.  The  genera! 
governing  equations  for  turbulent  flows  are  incompressible  three-dimensional, 
ensemble-averaged  Navi er- Stokes  equations.  The  Reynolds  stresses  are  modeled 
by  the  k-jg  turbulence  model  with  Boussinesq  eddy  viscosity  assumption. 

In  the  numerical  solution  the  velocity  components  and  pressure  are 
considered  as  primitive  dependent  variables  and  solved  explicitly.  A  numerical 
program  called  FANS-3DEF  (Finite  Analytic  Numerical  Solution  of  Three  Dimensional 
External  Flow)  is  developed.  In  the  FANS-3DEF  program  options  are  made  available 
for  users  to  select.  They  are  (1)  dimension,  (2)  grid  system,  (3)  type  of  flow, 
and  (4)  turbulence  models.  /-v^d'o  r 

To  verify  the  numerical  accuracy  and  validity  of  the  turbulence  models,  the 
finite  analytic  solution  is  first  obtained  for. laminar  and  turbulent  flow  over 
a  finite  flat  plate  with  or  without  angles  of  attack  at  Reynolds  nomber  ,]0, 
and  2.48  x.l^.  Then  finite  analytic  solutions  for  two  axisymmetric  bodies 
without  an  angle  of  attack  at  Reynolds  number  of  ^1.^2  x  10^  and  5.6  are 
obtained  and  compared  with  available  experimental  data.  Good  agreement  between 
the  predicted  result  and  experimental  data  is  obtained..  Finally,  the  flow  past 
an  axisymmetric  body  with  an  ogival  nose  for  three  different  angles  of  attack, 

5,  10  and  15  degree  at  Reynolds  number '3.. 7  x~Io^is  solved.  Whenever  possible 
the  predicted  solution  are  compared  with  either  available  numerical  results  or 

r 

experimental  data. 
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CHAPTER  : 

INTRODUCTTa'-  . 

1.1  Motivation  0£  Research 

Many  fluid  dynamic  problems  a.;  ?.'::;i.ated  with  flows  over 
airplane,  missile,  ship,  submariiii  .  ground  vehicle  are 
three  dimensional  and  turbulent,  because  of  the  practical 
importance  of  these  external  ilows  in  designing  moving 
vehicles  in  the  air,  on  ground  and  in  the  sea,  the 
prediction  of  laminar  and  turbulent  flow  around  a  body  has 
attracted  considerably  interest.  To  predict  these  flows  is 
not  a  simple  task  since  the  flow  past  a  simple  body  geometry 
can  easily  become  three  dimensional  and  turbulent  if  the 
approaching  flow  has  an  angle  of  attack  to  the  body  and  when 
the  Reynolds  number  is  large.  What  is  more  is  that  the  flow 
around  the  body  may  develop  shedding  if  separation  of  flow 
is  developed  on  the  body.  It  is  the  aim  of  this  study  to 
develop  a  numerical  prediction  method  for  predicting  complex 
laminar  and  turbulent  flow  past  a  two  dimensional  and 
axisymmetric  body  with  or  without  angle  of  attack. 

Although  many  numerical  algorithms  have  been  developed 
over  the  past  decade  to  solve  the  three  dimensional 
turbulent  flow,  most  of  these  works  are  developed  for 
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external  flow  probleras  with  governing  equations  of  boundary 
layer  flov;  type  or  for  internal  flow  problems  witi.  governing 
equations  of  partially  parabolized  type.  These  works  can 
not  be  implimented  in  prediction  of  the  total  flow  field  or 
flow  with  separation.  This  is  due  partly  to  the  limitation 
of  computer  storage  and  computational  time  and  partly  to  thi. 
lack  of  geit.ral  turbulence  model  for  prediction  of  complex 
flows  involving  flov;  separation  and  recirculation. 

In  the  present  study  only  external  flows  are 
considered.  The  prediction  of  external  flow  problems  are 
indeed  difficult  and  few  solutions  are  available.  However, 
many  external  flow  problems  are  of  great  importance.  In 
order  to  predict  the  complete  flow  past  a  body  involving 
separation  the  complete  Navier-Stokes  equations  are  used  in 
this  study.  For  the  case  of  ■’  ’rbulent  flow  the  ensemble 
averaged  process  is  used  to  obtain  the  averaged 
Navier-Stokes  equations  and  the  turbulence  model  based  on 
second  order  correlation  is  adapted.  As  the  prediction  of 
complex  three  dimensional  flows  past  three  dimensional 
bodies  is  a  formidable  task.  In  the  present  study  the 
prediction  of  flow  past  a  fj.nite  flat  plate  from  the 
upstream  to  the  wake  region  is  first  made  and  then  the  flow 
past  the  finite  length  of  axi symmetric  body  is  predicted. 
Although  the  geometry  of  an  axi symmetric  body  is  simple  in 
comparision  with  those  practical  configurations,  the  flow 


over  the  axisynunetric  body  at  incidence  is  a  complex  three 
dimensional  flow  and  contains  most  of  the  flow  features 


observed  on  more  complex  geometries.  Therefore,  the 
prediction  of  flow  past  an  inclined  axisymmetric  body  is  the 
first  step  in  developing  numerical  prediction  capability  for 
flow  past  more  complicated  geometry.  The  primary  objective 
of  the  present  study  is  then  to  develop  a  numerical  scheme 
with  some  available  turbulence  models  for  prediction  of 
flows  past  an  axisymmetric  body  of  finite  length. 

1.2  previcuo  Works 

Before  the  detail  of  the  present  study  is  given,  a 
brief  review  of  the  previous  works  on  experimental  study, 
numerical  solutions  for  three  dimensional  turbulent  flow  are 
first  made. 


1.2.1  Experimental  Study 

Prandtl,  the  father  of  boundary  layer  theory,  was  the 
first  to  recognize  the  importance  of  three  dimensionality  in 
turbulent  flow  and  had  proposed  a  simple  turbulent  flow 
profile  model  (1]  at  the  beginning  of  the  20th  century.  But 
Gruschwitz  [2]  (1935)  was  the  first  to  conduct  and  publish 
the  results  of  a  comprehensive  experiment  involving  three 
dimensional  turbulent  flows.  He  measured  che  free  stream 
and  the  boundary  layer  mean  flow  field  over  many  stations 
covering  the  flat  end-v/all  of  a  curved  two  dimensional  duct. 
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Since  then  the  experimental  studies  in  three  dimensional 
turbulent  flow  grew.  Unfortunately  no  turbulent  stress  data 
for  three  dimensional  flows  had  been  measured  and  published 
before  1967.  Bradshaw  and  Terell  [3]  (1969)  measured  the 
turbulent  stress  on  an  'infinite'  sweep  wing  at  Reynolds 

4 

number  around  6x10  which  is  believed  to  be  the  first  detail 
study  of  turbulent  flow  in  three  dimensional  boundary  layer. 
They  used  this  experiment  to  test  Bradshaw's  assertion  that 
the  ratio  of  turbulent  stress  to  the  turbulent  kinetic 
energy  is  constant  in  the  boundary  layer.  They  found  that 
the  assertion  is  only  approximately  true. 

Three  dimensional  turbulent  experiments  are  painstaking 
and  time  consuming  and  definitely  not  abundant.  Some 
experiments  are  conducted  for  greater  understanding  of  the 
turbulent  phenomena  and  can  be  used  to  develop  suitable 
mathematical  models  for  turbulent  flow  prediction.  For  an 
experiment  to  be  useful  in  developing  and  testing  the 
mathematical  models  the  experimental  data  should  provide 
adequate  information  for  possible  numerical  simulation.  In 
other  words,  in  addition  to  the  measurements  of  velocity, 
pressure  and  turbulent  stress  in  the  flow  region,  initial 
and  boundary  conditions  must  be  carefully  measured  and 
documented.  Since  in  this  study  the  emphasis  is  placed  on 
the  turbulent  flow  past  axisymmetric  body  that  a  brief 
review  of  experimental  work  pertaining  to  the  flov/  past 
axisymmetric  body  with  or  without  angle  of  attack  is  given. 
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Richmond  [4]  (1957)  was  probably  the  first  to  study  the 
turbulent  flow  on  a  circular  cylinder.  He  measured  the 
velocity  profile  along  the  surface  of  a  slender  circular 
cylinder  at  several  subsonic  and  hypersonic  speeds.  He 
obtained  the  law  of  the  wall  for  the  axi symmetric  boundary 
layer  by  using  Cole's  streamline  hypothesis.  Later  Yasuhara 
(5]  (1959)  measured  a  20  mm  diameter  brass  pipe,  1750  mm 
long  with  ogive-nose  at  Reynolds  1.2  ~  1.8x10^.  Willmarth 
and  Young  [6]  (1970)  measured  the  boundary  layer  development 
for  air  flowing  on  a  steel  tube  of  40  ft  long  and  3  in. 
diameter  at  200  ft/sec  free  stream  speed.  In  these 
experiments,  although  the  velocity  profile  and  pressure 
along  the  cylinder  were  measured,  no  turbulent  quantities 
were  measured. 

Other  experimental  studies  on  flow  over  an  axi symmetric 
body  without  angle  of  attack  with  measured  turbulent 
quantities  are  shown  in  the  table  1.  They  are  Chevray  [7] 
(1967),  Patel,  Nakayama  and  Damian  [8]  (1974),  Patel  and  Lee 
(9)  (1977),  Huang,  Santelli  and  Belt  [10]  (1978),  and  Hung, 
Groves  and  Belt  [11]  (1980).  Chevray' s  experiment  was  the 
first  attempt  to  measure  turbulence  stress  in  the  wake.  In 
his  experiment  a  small  separation  was  observed  ahead  of  the 
tail.  The  data  provided  detailed  information  far  into  the 
wake.  This  experiment  was  recommended  as  a  test  case  at  the 
1980-81  Stanford  Conference  on  Complex  Turbulent  Flows  but. 


Authors  (Ret.)  Body  shapa  Length  (m)  Max.  (D/L)  Ra  -  UL  Range  oC  Data 

(  X  10*  )  X/L 


Table  1.  Summary  Of  Experiments 
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to  date,  it  has  not  been  successfully  predicted  by  any 
method.  The  remaining  four  experiments  are  quite  well  known 
and  had  been  used  extensively  as  test  cases.  None  of  these 
experimental  studies  involved  separation,  and  all  provided 
mean- flow  and  turbulence  data  in  the  stern  boundary  layer. 
The  measurements  were  confined  near  the  body  therefore,  the 
data  did  not  provide  sufficient  information  far  into  the 
wake.  All  of  the  above  studies  are  restricted  to 
axisymmetric  flow  i.e.,  without  angle  of  attack. 

Ramaprian,  Patel  and  Choi  [12]  (1S81)  measured  three 
dimensional  flow  past  an  inclined  cylinder  body.  In  this 
study  only  velocity  profiles  and  pressure  along  the  cylinder 
body  were  measured  and  no  turbulent  quantities  were  given. 
Baek  ( 13 j  (1984)  continued  the  previous  experiment  and 
concentrated  in  his  work  on  the  measurements  of  turbulent 
quantities.  The  other  available  sources  of  turbulent  data 
pertaining  to  inclined  cylinder  is  the  experinents  made  by 
Meier  et  al.  (14l  (1984)  at  DEvLR  in  Gottingen,  West 
Germany.  However,  all  of  these  three  dimtrnsional  turbulence 
data  are  measured  only  on  the  body  between  the  region 
0.2<x/L<0.9,  where  L  is  the  body  length,  x=0  is  the  leading 
edge  of  the  body  and  x=L  is  the  tail  of  the  body.  No 
measurements  involving  the  separation  flow  or  inside  the 
wake  are  yet  available. 
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1.2.2  Numerical  Approach 

The  primary  difficulty  in  obtaining  numerical  solution 
of  the  three  dimensional  turbulent  flow  is  that  the 
governing  Navier-Stokes  and  turbulent  transport  equations 
are  non-linear  and  elliptic  with  respect  to  space  variables. 
The  numerical  solution  of  the  three  dimensional  flow  problem 
must  be  found  simultaneously  in  all  three  spatial 
directions.  Generally  speaking,  the  computer  systems 
available  in  the  academy  or  industry  are  still  not  large 
enough  to  store  all  the  values  associated  with  large  number 
of  discretized  nodes  and  variables  that  are  required  in 
three  dimensional  flow  calculation.  Thus,  to  solve  the 
three  dimensional  turbulent  flow  problem  by  using  truely 
elliptic  treatment  is  an  impractical  proposition  at  the 
present  time.  The  computer  storage  requirements  and  the 
computational  effort  can  be  greatly  reduced  by  the  use  of 
approximate  equations  whose  applicability  lies  somewhere 
between  that  of  the  fully  elliptic  Navier-Stokes  equations 
and  the  classical  parabolic  boundary  layer  equations.  There 
are  two  different  approaches  in  deriving  the  approximate 
equations.  The  first  one  is  to  simplify  the  Navier-Stokes 
equations  by  discarding  certain  terms  and  the  second  is  to 
modify  the  boundary  layer  equations  by  introducing 
additional  terms.  Both  approaches  lead  to  the  same 
equations.  These  intermediate  equations  representing  an 
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improvement  over  the  classical  boundary  layer  approximations 
and  have  been  used  by  many  authors  [15].  In  solving  these 
approximate  equations  the  integral  as  well  as  differential 
methods  have  been  proposed.  Generally,  the  integral  method 
needs  additional  empricism  to  predict  the  crossflow  across 
the  boundary  layer  and  this  empricism  varies  from  one 
problem  to  the  other.  A  more  general  solution  can  be 
obtained  if  the  differential  solutions  are  solved 
numerically.  Many  available  three  dimensional  solutions  for 
the  external  flows  problems  are  based  on  boundary  layer 
equations  rather  than  the  Navier-Stokes  equations.  This 
approach  has  the  major  shortcoming  of  not  being  able  to 
predict  the  flow  separation.  In  order  to  develop  a 
prediction  scheme  that  is  capable  of  predicting  separation 
flow  one  must  consider  the  Navier-Stokes  equations.  Here 
only  the  differential  methods  based  on  the  Navier-Stokes 
eqiiations  are  reviewed.  Among  the  works  based  on  simplified 
Navier-Stokes  equations  known  as  the  partially-parabolic 
equations  is  perhaps  the  most  popular  one  to  date  us-sd  in 
the  three  dimensional  flow  problem.  The  partially-parabolic 
approximations  were  first  introduced  ty  Patankar,  Pratap  and 
Spalding  [16,17]  (1972),  to  describe  internal  flows  in  a 
curved  tube  where  the  predominant  flow  direction  is  along 
the  tube  axis.  The  diffusion  term  is  neglected  in  the 
approximation.  Although  there  is  no  recirculation  in  the 
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flow,  significant  pressure  effects,  unlike  boundary  layer 
assumption,  propagate  upstream.  By  neglecting  the  diffusion 
term  in  the  axial  direction  the  governing  equation  become 
parabolic  in  the  axial  direction  for  the  velocity  variables. 
It  should  be  remarked  that  the  pressure  variable  is  governed 
by  an  elliptic  equation  which  can  be  shown  if  the  velocity 
variables  in  the  continuity  equation  are  expressed  in 
pressure  variable.  Nevertheless,  the  numerical  solution  can 
be  obtained  by  marching  the  solution  from  the  upstream  to 
the  downstream  instead  of  solving  the  whole  velocity  field 
that  is  required  in  the  elliptic  case.  The  approximation 
still  enables  one  to  compute  a  wide  class  of  three 
dimensional  flows  of  practical  interest  other  than  that  of 
boundary  layer  flows. 

Table  2  summarizes  some  numerical  works  using  a 
partially  parabolic  approach  on  three  dimensional  external 
turbulent  flow.  They  are  Abdelmeguid,  Markatos  and  Spalding 
(18]  (1978),  Muraoka  (19)  (1980),  Huang  and  Chang  [20] 
(1985),  Chen  and  Patel  (21,22]  (1985).  Similar  to  the 
published  applications  in  internal  flows  (16,17],  these 
studies  used  essentially  the  same  numerical  scheme  based  on 
the  work  of  Patankar  and  Spalding  et  al.  (23],  and  the  k-e 
turbulence  model  with  specified  wall  functions  for  flow 
variable  near  the  wall  boundary.  Some  good  success  of 
numerical  predictions  is  obtained  in  (20,21,22].  However, 
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three  dimensional  flows  that  can  be  described  by  the 
approximated  partially-parabolic  equations  are  limited  to 
those  flows  having  no  flow  separation.  In  the  present  study 
the  numerical  solution  is  derived,  in  addition  to  the  above 
flows,  for  prediction  of  separation  flows.  In  order  to 
achieve  the  prediction  capability  of  separation  flows, 
instead  of  neglecting  the  diffusion  term  in  the  direction  of 
the  predominant  flow  direction  as  in  the  partially-parabolic 
approximation,  in  this  study  the  diffusion  term  is  kept  and 
cast  into  the  source  term,  hence  the  fully  elliptic 
governing  equations  are  retained.  The  approximation  is  made 
only  numerically  to  evaluate  the  longitudial  diffusion  term 
from  the  previous  iteration.  This  approximation  called  the 
"semi-elliptic  approximation"  has  an  advantage  that  the 
fully  elliptic  solution  is  kept  in  the  whole  computational 
domain  and  that  the  computational  effect  and  storage  equals 
to  that  of  the  partially-parobolic  approach.  More  details 
of  the  semi-elliptic  solution  procedure  and  numerical 
analysis  will  be  explained  later  in  chapter  III. 

1.3  Selection  Of  Methods  And  Models 
As  mentioned  before,  the  numerical  predictions  of  three 
dimensional  turbulent  flow  are  complicated  and  sometimes 
unreliable.  These  difficulties  are  not  just  with  the 
geometry  treatment,  coordinates  and  numerical  method 
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adopted,  but  also  in  the  turbulence  models  used  to  relate 
the  Reynolds  stresses  to  the  mean  flow.  Therefore,  in  order 
to  solve  a  complex  three  dimensional  turbulent  flow  one 
must,  in  addition  to  an  appropriate  coordinate  system  and  an 
accurate  numerical  method,  have  a  turbulence  model  that  is 
valid  for  three  dimensional  flow  including  flow  separation. 
The  selection  of  coordinate  system,  numerical  method  and 
turbulence  model  are  outlined  in  the  following  sections. 

1.3.1  Coordinate  System 

The  simple  and  familiar  coordinate  systems  that  are 
usually  used  in  the  early  numerical  approach  are  Cartesian, 
Cylindrical  and  Spherical  coordinates.  However,  it  is 
obvious  that  these  coordinate  systems  are  appropriate  only 
for  the  problem  geometry  having  the  coordinate  lines  as  the 
boundaries.  Consequently,  the  numerical  solution  based  on 
the  standard  coordinate  systems  has  difficulty  in  specifying 
the  non-slip  boundary  conditions  on  the  surface  of  arbitrary 
shaped  bodies.  In  the  present  study  the  body-fitted 
coordinate  system,  such  that  the  surface  of  the  body  is  one 
member  of  a  family  of  the  coordinate  surfaces,  is  used  to 
avoid  this  difficulty. 

The  ideal  body  fitted  coordinate  system  is  the 
analytic,  orthogonal  curvilinear  coordinate  system  that 
traces  the  problem  boundary  and  satisfies  the  requirements 
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of  orthogonality  in  three  dimensional  space.  In  this  system, 
the  coordinate  surfaces  normal  to  the  body  must  intersect 
the  body  surface  in  its  lines  of  principal  curvature.  Thus, 
to  find  this  coordinate  system  for  a  body  of  any  given  shape 
it  is  necessary  to  obtain  the  lines  of  curvature  of  the  body 
surface,  which  can  be  mathematically  derived  as  shov/n  in  the 
paper  published  by  Miloh  and  Patel  [24],  Unfortunately,  the 
use  of  the  lines  of  principal  curvature  to  form  the 
analytical  body  fitted  coordinate  system  is  not  very 
convenient  since  the  determination  of  these  lines  of 
principle  curvature  is  rather  complicated.  Moreover,  for  an 
arbitrary  shaped  body  the  curvature  of  these  lines  may  be 
quite  large  on  some  part  of  the  body  so  that  the  numerical 
evaluation  of  coordir’ate  value  reguires  great  care  to  attend 
sufficient  accuracy. 

To  rectify  the  problem,  many  numerically-generated 
coordinate  systems  have  been  tried  in  the  past  decade. 
Investigators  have  constructed  curvilinear  meshes  to  span 
the  whole  physical  region  and  some  others  have  even  tried 
different  modifications  of  conformal  transformation 
procedures  [25].  The  real  breakthrough  came  from  the 
elliptic-transformation  procedure  proposed  by  Thompson  et 
al .  [26].  In  this  method,  one  of  the  coordinate  lines  or 
surfaces  is  matched  with  the  body  identically  and  another 
with  some  outer  boundaries,  and  internal  points  of  the 
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physical  region  are  automatically  generated  on  the  computer 
by  the  solution  of  an  elliptic  system  of  partial 
differential  equations.  In  contrast  to  a  conformal  mapping 
procedure,  which  is  limited  to  bodies  in  two  dimensions,  the 
Thompson's  procedure  can  be  extended  to  three  dimensional 
problems.  The  numerically-generated  body  fitted  coordinates 
is  not  only  proved  to  be  mathematically  sound,  but  also  has 
the  capacity  of  contracting  the  coordinate  lines  to  a  point 
or  along  some  specified  lines  and  surface  in  the  physical 
region.  Generally,  the  contraction  of  the  grid  lines  to  the 
surface  of  of  body  is  required  for  obtaining  more  accurate 
results  while  solving  the  flow  problem  which  has  large 
gradient  and  rapid  change  of  variables  near  the  body. 
Therefore,  in  this  study  the  body- fitted  coordinate  system 
based  on  Thompson  [26]  is  used  to  generate  the  grid 
distribution  in  the  computational  domain.  It  should  be 
remarked  here  that  the  use  of  the  body-fitted  coordinate 
systems  which  enables  us  to  solve  the  flow  past  a  body  with 
irregular  body  shape  has  some  disadvantages.  The  first  is 
that  many  cross  derivative  terms  are  added  to  the  governing 
equations  after  the  transformation  from  the  physical 
coordinates  to  the  body-fitted  coordinates.  Therefore  one 
must  solve  more  complex  governing  equations  in  the 
body-fitted  coordinates.  The  second  is  that  numerical  error 
due  to  difference  approximation  in  those  transformation 


functions  relating  the  physical  and  body-fitted  coordinates 
may  decrease  the  accuracy  of  numerical  solution.  Third,  the 
departure  of  the  body-fitted  coordinates  from  orthogonality 
may  create  additional  difficulties  and  numerical  error 
during  the  computation. 

1.3.2  Numerical  Method 

Depending  on  hov;  the  algebraic  representation  of  the 
differential  equation  is  derived  the  numerical  method  may  be 
classified  as  finite  difference,  finite  volume,  finite 
element  or  finice  analytic.  In  the  finite  difference  method 
(27]  the  discrete  algebraic  equation  is  obtained  by 
Taylor-series  expansion  of  differential  te„ms  while  the 
finite  volume  method  (23)  derived  rhe  algebraic  equation  by 
formulating  the  conservation  principle  in  a  finite  control 
volume  without  taking  the  limits  to  the  infinitesimal 
volume.  In  the  finite  element  method  [28],  the  variational 
formulations  and  the  method  of  weighted  residuals  are  often 
used  to  derive  an  intergal  form  before  an  algebraic  equation 
relating  the  nodal  values  in  the  element  is  obtained.  The 
finite  analytic  method  presented  by  Chen  et  al.  (29-37] 
invokes  another  means  of  deriving  the  algebraic  equations. 
Unlike  the  finite  difference,  finite  volume  or  finite 
element  method,  the  discretized  algebraic  equation  is 
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I’inite  element  method  which  is  used  very  successfully 
in  the  solid  mechanics  was  first  introduced  to  the  fluid 
problem  in  the  late  of  sixties.  And  the  first  conference  on 
finite  element  in  fluid  mechanics  was  held  in  1974  at 
Swansea  [28].  During  the  last  two  decades  the  number  of  the 
applications  of  the  finite  element  procedure  for  various 
areas  of  fluid  mechanics  had  been  increased.  However  the 
majority  of  applicarions  of  finite  element  in  fluid 
mechanics  occur  in  the  slow  viscous  flow,  wave  phenomena  and 
fluid-structure  interaction.  But  for  high  Reynolds  number 
or  turbulent  flow  and  external  flow  the  finite  element 
solutions  are  scarce.  This  is  partly  due  to  the  fact  that 
at  high  Reynolds  number  the  finite  element  treatment  of  the 
convective  term  is  often  inadequate  and  the  finite  element 
solution  can  become  unstable  and  inaccurate.  Since  in  the 
present  study  the  high  Reyr.olds  number  external  turbulent 
flows  are  going  to  be  solved,  then  the  finite  element 
approach  is  not  a  suitable  numerical  method  for  this  study. 

The  finite  differnnce  method  is  perhaps  the  most  used 
numerical  method  in  solving  fluid  flow.  Various  forms  of 
finite  difference  methods  had  been  used  to  solve  fluid 
problems  for  a  long  time,  and  many  successful  solutions  have 
been  obtained.  However  there  are  still  several  difficulties 
in  obtaining  finite  difference  numerical  solution.  The  first 
is  the  numerical  instability  in  solving  the  system  of 
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algebraic  equations  that  approximate  the  governing  partial 
differential  equations.  The  second  is  numerical  error 
associated  with  the  numerical  method  known  as  numerical  or 
false  diffusion  which  in  some  situations  can  become  so 
severe  as  to  completely  overshadow  the  physical  turbulent  or 
viscous  diffusion.  The  instability  of  the  finite  difference 
solution  basically  arises  from  the  improper  finite 
difference  approximation  of  the  original  governing 
differential  equation.  If  the  original  governing 
differential  equation  is  well  posed  the  numerical  solution 
of  the  properly  approximated  finite  difference  equation  must 
be  stable.  However  the  proper  and  accurate  finite 
difference  equation  for  the  Navier-Stokes  equation  is  not 
easy  to  derive.  On  the  other  hand  it  is  known  [27]  that  the 
finite  difference  equation  based  on  the  central  difference 
approximation  for  the  Navier-Stokes  equations  is  unstable 
when  the  element  Reynolds  number  is  greater  than  two.  To 
partially  overcome  the  instability  of  the  finite  difference 
solution  of  Navier-Stokes  equation,  the  upwind  scheme  was 
introduced  (38)  to  preserve  the  proper  characteristic  of  the 
original  partial  differential  equation  that  is  present.  The 
upwind  scheme  uses  some  special  formula  to  shift  the  weight 
of  the  difference  scheme  or  nodal  influence  on  the  element 
to  the  points  where  the  flow  pass.  Hov/ever,  if  the 
formulation  of  upwind  scheme  is  improperly  implimented,  the 
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scheme  may  produce  large  numerical  diffusion  even  though  the 
solution  is  stable. 

Unlike  the  finite  difference  method,  the  finite 
analytic  method  invokes  the  analytic  solution  of  the 
governing  equation  in  the  local  element  in  formulating  the 
algebraic  representation  of  the  governing  partial 
differential  equation.  The  finite  analytic  method  produces  a 
stable  solution  because  the  analytic  solution  of  a  well 
posed  problem  is  stable.  Further  more  the  finite  analytic 
solution  has  the  ability  of  automatically  upwinding  shift  of 
the  weight  of  the  coefficients  that  are  associated  with  the 
analytic  algebraic  equation.  The  finite  analytic  solution 
thereby  minimizes  the  false  numerical  diffusion  while 
providing  a  stable  solution.  The  finite  analytic  method  has 
been  applied  successfully  in  solving  the  vortex  shedding, 
recirculation  flow,  free  convection  flow  and  laminar  and 
turbulent  flow  at  high  Reynolds  number  [21,22,29-37].  From 
these  published  results  the  finite  analytic  solutions  were 
shown  to  be  indeed  stable  and  accurate.  Consequently  the 
finite  analytic  method  is  adopted  in  this  study. 

1.3.3  Turbulence  Model 

Equations  for  describing  the  fluid  motions,  known  as 
the  Navier-Stokes  equations,  have  been  postulated  and 
derived  for  over  a  century.  However,  it  is  difficult  to 
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solve  these  equations  for  both  laminar  and  turbulent  flows 
mainly  due  to  the  nonlinearlity  of  the  equations.  For 
turbulent  flows,  the  difficulty  is  even  more  formidable  to 
overcome  because  the  turbulent  fluid  motion  is  irregular, 
random,  time  dependent  and  three  dimensional.  However,  in 
most  engineering  applications,  the  detailed  analysis  of 
instantaneous  turbulent  motion  is  not  necessary  and  the 
gross-parameters  like  mean  velocity,  average  pressure  and 
wall  shear  stress  are  often  sufficient  for  engineering 
analysis  and  design. 

In  studying  the  turbulent  flow  0.  Reynolds  [39] 
proposed  an  averaging  technique  by  assuming  that  the 
variable  0*  at  any  instant  of  time  to  consist  of  the  mean 
quantity  <p ,  an  averaged  value  of  <?*  during  the  long  time 
period  T,  i . e. 

♦  =  llJ  at 

and  a  fluctuating  part  Hence, 

1^*  =  0  +  0'  The  time  averaging  process  when  applied 
to  the  Navier-Stokes  equations,  creats  six  additional 
unknowns  .  These  unknowns,  although  called  Reynolds 

stress,  are  created  from  the  convective  or  non-linear  terms 
of  the  Navier-Stokes  equations.  Instead  of  time  average  a 
more  general  average,  ensemble  average,  can  be  used  to 
derive  turbulent  Navier-Stokes  equations.  In  the  ensemble 
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average,  the  averaged  value  i}i  is  now  the  average  of  many 
repeated  same  experiments  or  1  r.  a* 

where  N  is  the  total  number  of  the  experiments,  and  is 
the  deviation  of  the  instantaneous  value  0*  from  that  of  the 
ensemble  averaged  value  0 .  The  advantage  of  considering 
ensemble  average  is  that  the  process  of  ensemble  average  may 
be  applied  to  unsteady  turbulent  flows,  preserving  the  time 
dependence  in  the  average  value  ((>  which  the  original 
Reynolds  average  can  not  do. 

Many  turbulence  models  have  been  proposed  to  evaluate 
the  unknown  Reynolds  stress.  All  models  have  them  coupled  to 
the  mean  quantities  through  either  algebraic  or  differential 
equations.  Some  are  based  on  empirical  relation  and  others 
on  postulations. 

In  1877,  Boussinesq  (40)  proposed  the  concept  of  eddy 
viscosity  which  assumes  that,  in  analogy  to  the  viscous 
stresses  in  laminar  flows,  turbulent  stresses  are 
proportional  to  the  mean  velocity  gradients.  For  general 


flow  situations,  it  is  expressed  as 

_  3U.  3U.  2 

-  U^Uj  =  v^(  ^  ^  )  -  3  ^ij 

Here  is  the  turbulent  or  eddy  viscosity  which,  unlike 
molecular  viscosity,  v,  is  not  a  fluid  property  but  depends 


on  the  state  of  turbulence,  k  represents  the  kinetic  energy 


of  the  fluctuating  motion  or  u.u^/2.  Boussinesq  did  not 
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provide  a  general  model  for  v^.  In  1925,  Prandtl  [41] 
proposed  a  turbulence  model  called  the  'mixing  length' 
model.  This  model  created  a  relation  for  the  eddy  viscosity, 
as  a  function  of  a  length  scale  L  characterizing  the  size  of 
turbulent  eddies  and  a  suitable  turbulent  velocity  scale,  V. 
Since  has  the  dimension  of  length  squared  over  time, 
Prandtl  proposed  o  VL.  Both  the  turbulent  velocity 
scale,  V,  and  the  mixing  length  scale,  L,  could  be 
reasonably  approximated  for  many  flows.  However  for  each 
flow  empirical  constants  were  needed  to  prescribe  a  length 
scale.  The  flows  that  are  most  successfully  modelled  by  the 
mixing  length  odel  are  of  thin  shear  flows  such  as  boundary 
layer.  Jets,  wake,  mixing  layer  flows  and  pipe  flows.  The 
constants  of  the  mixing  length  model  were  obtained  by 
fitting  the  calculated  results  to  experimental  data  of  a 
particular  flow  under  study.  These  mixing  length  model 
constants  were  found  [42]  to  vary  often  from  one  flow  to 
another.  Consequently,  the  mixing  length  turbulence  model  is 
successful  only  in  predicting  turbulent  flows  in  similar 
geometry  and  flow  conditions  but  lacks  the  universality  and 
predictability  when  the  turbulent  flow  and  geometry  are 
different . 

To  overcome  the  lack  of  predictability  and  generality, 
several  more  complex  models  were  developed  during  the  1940' s 
and  1950' s  which  employed  differential  transport  equations 
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for  the  turbulent  quantities.  However,  these  equations  could 
not  be  solved  directly  as  there  were  mathematical 
difficulties  involved  and  numerical  techniques  and  fast 
computers  were  not  available.  Alternatively,  the  governing 
partial  differential  equations  for  turbulent  flows  were 
often  solved  by  integral  method  which  reduced  the  governing 
partial  differential  equations  to  ordinary  differential 
equations.  These  integral  methods  assumed  some  shape  of 
mean  profile  and  used  some  empirical  relations  for  global 
behavior  of  turbulence.  They  lacked  flexibility  since  the 
assumed  profile  must  be  approximately  the  same  in  the  flow 
field  and  could  not  be  applied  for  different  flows. 

Advances  in  computational  facilities  and  numerical 
methods  during  the  late  1960's  and  1970' s  led  to  the  use  of 
more  advanced  models  which  solve  complete  partial 
differential  equations  for  both  mean  flow  and  turbulent 
quantities.  One  of  these  models  which  solves  the 
differential  equation  for  the  turbulent  kinetic  energy,  k  or 
u^i/2,  is  called  the  one-equation  model  as  opposed  to  the 
zero-equation  model  proposed  by  Boussinesq  or  Prandtl  where 
no  differential  equations  are  solved  for  turbulent 
quantities.  With  the  kinetic  energy  known,  the  Boussineq's 
eddy  viscosity  can  be  written  as 
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where  is  an  empirical  constant,  k  represents  a  turbulent 
velocity  scale  where  k  is  solved  from  the  modelled  governing 
equation  of  the  turbulent  kinetic  energy,  and  L  the  length 
scale  is  a  varible  which  is  obtained  from  simple  empirical 
relations  similar  to  those  for  the  mixing  layer.  The  one 
equation  model  was  found  [42)  useful  only  in  predicting  thin 
shear  flow  since  in  many  complex  flows  it  is  difficult  to 
specify  the  length  scale  empirically.  The  logical  extension 
of  the  turbulence  modelling  is  that  the  length  scale  be 
obtained  from  a  differential  transport  equation. 

Models  which  solve  differential  equations  for  both 
turbulent  velocity  scale  or  turbulent  kinetic  energy  k,  and 
length  sacle  or  alternatively  the  dissipation  rate  of 
turbulent  kinetic  energy  f  ( =  V  )  ate  known  as 
two-equation  models.  The  most  popular  one  is  the  one 
suggested  by  Jones  and  Launder  (43)  which  has  k^'^/L  instead 
of  L.  The  term  k^ ’ ^/L  has  physical  significance  as  it  has 
the  same  dimension  as,  e,  the  dissipation  rate  of  turbulent 
kinetic  energy.  Hence  this  model  is  usually  called  k-e 
turbulence  model.  The  conventional  k-e  turbulence  model 
which  only  uses  k  and  e  to  characterize  the  turbulent 
velocity  (  JIT  ),  length  (  k^ ’ ^/c  )  and  time  (  k/e  )  scale 
will  be  called  one-scale  k-e  turbulence  model  in  this  study. 
It  was  found  that  one-scale  k-e  turbulence  model  can  predict 
acceptable  mean  flow  variables  when  flow  geometry  is  not  too 
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complex.  It  also  can  predict  a  fair  result  for  the  turbulent 

transport  properties.  However,  the  one-scale  k-e  turbulence 

model  was  found  to  be  unsatisfactory  in  predicting  the 

result  for  two  dimensional  and  axi symmetric  jets  unless  the 

turbulence  constants  which  calibrated  with  experimental  data 

are  altered.  In  order  to  improve  the  prediction  capability 

of  turbulence  model  a  two-scale  k-£  turbulence  model  was 

proposed  recently  by  Chen  and  Singh  [44].  This  model 

employs  the  concept  of  two  different  scales  in 

characterizing  the  turbulent  scales.  One  scale  which  is 

based  on  k  and  e  for  the  large  energy  containing  eddies 

(l=k^'^,  v=  k,  t=k/e )  is  used  for  modelling  turbulent 

diffusion  and  other  turbulent  production  phenomena  and  the 

other  which  is  based  on  Kolmogrov's  scale  [45)  e  and  v  for 

3  0  75 

the  small  eddies  in  the  dissipation  range  (l=(v  /t)  '  , 

v=(ve)^'^^,  t=(v/e)*^'^)  to  model  destruction  of  dissipation 
of  turbulent  kinetic  energy  and  other  turbulent  dissipation 
phenomena.  Based  on  the  two-scale  concept  the  z  equation  is 
remodeled.  It  is  found  (44)  that  the  two-scale  k-r. 
turbulence  model  can  predict  many  turbulent  free  shear  flows 
and  some  recirculation  flows  without  altering  the  turbulent 
constants  including  the  turbulent  two  dimensional  and 
axi symmetric  jets  and  turbulent  wakes  and  mixing  phenomena. 
During  the  early  stage  of  this  study  the  two-scale  k-s 
turbulence  model  was  tested  for  the  boundary  layer  flow  and 
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found  that  the  FANS-3DEF  with  the  turbulent  constants  of  the 
two-scale  k-e  model  often  encounter  numerical  instability. 

It  is  found  that  the  numerical  instability  started  when  the 
dissipation  rate  of  the  turbulent  kinetic  energy,  s,  is 
larger  than  the  production  of  turbulent  kinetic  energy. 
Therefore  it  is  reasoned  that  the  turbulent  constants 
C  ,  C  ,  and  C  „  used  in  the  two- scale  turbulence  model 
require  further  investigation.  In  the  present  study  the 
one-scale  k-E  model  is  choosen  since  the  one-scale  k-E  model 
in  the  present  form  was  known  to  be  stable  in  predicting  the 
turbulent  external  flow  although  the  model  required  further 
improvement  in  modeling. 


1 . 4  Scope  Of  The  Study 

This  study  is  undertaken  to  develop  a  prediction  method 
capable  of  analyzing  both  laminar  and  turbulent  flows  past  a 
finite  or  semi  infinite  two  dimensional  or  axisymmetric  body 
with  and  without  an  angle  of  attack.  In  chapter  II,  the 
partial  differential  equations  governing  the  flow  situation 
considered  in  the  present  study  are  described.  The 
different  turbulence  models  and  the  treatment  of  the 
boundary  conditions  near  the  wall  are  also  discussed.  In 
chapter  III,  the  derivation  of  finite  analytic  formulation 
on  the  body-fitted  coordinates,  the  formulation  of  pressure 
equation  on  a  control  volume  and  the  description  of 
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numerical  algorithm  used  in  this  study  are  presented.  From 
chapters  IV  to  chapter  VI  the  prediction  of  the  laminar  and 
turbulent  flow  past  two  dimensional  and  axisymmetric  bodies 
with  and  without  angle  of  attack  are  given  and  discussed. 

In  chapter  VII,  the  conclusions  of  the  present  study  are 
summarized  and  the  recommendations  for  the  future  work  are 
proposed. 

The  brief  formulation  for  calculating  the  two 
dimensional  finite  analytic  coefficients  are  given  in 
appendix  A.  In  appendix  B,  the  brief  introduction  of  the 
computer  program  FANS-3DEF  (Finite  Analytic  Numerical 
Solution  for  Three  Dimensional  External  Flow)  and  sample 
output  on  the  interactive  screen  are  outlined,  and  the 
complete  program  of  FANS-3DEF  is  listed. 
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CHAPTER  II 

MATHEMATICAL  FORMULATION 

In  this  chapter  a  general  mathematical  formulation  for 
predicting  laminar  and  turbulent  flow  past  a  two  dimensional 
and  axi symmetric  body  with  or  without  an  angle  of  attack  is 
introduced.  The  general  governing  equations  for  three 
dimensional  turbulent  flow  are  first  formulated  in  Cartesian 
coordinates.  The  turbulence  model  based  on  the  second  order 
correlation  for  the  Reynolds  transport  equation  is  then 
considered.  The  general  features  of  boundary  conditions  are 
also  stated  to  complete  the  mathematical  formulation. 
Therefore,  simple  geometries  like  a  flat  plate  or  a 
cylindrical  tube  can  be  treated  as  a  special  case  of  the 
general  formulation.  All  governing  equations  and  boundary 
conditions  are  then  transformed  and  rewritten  in  the 
body-fitted  coordinate  systems. 

2.1  Governing  Equations 

Figure  1  depicts  the  whole  computational  domain  to  be 
considered  in  this  study  and  a  general  geometry  of  a  body 
which  is  subjected  to  an  incoming  flow  Uq  with  an  angle  of 
attack  a.  The  body  geometry  can  be  thought  to  simulate  an 
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airborne  object  in  air,  a  ground  vehicle  on  the  road  or  a 
submerged  marine  ship  in  the  sea.  For  the  total  body  domain 
the  body  which  has  a  characteristic  length  of  L  is  located 
in  the  center  of  the  computational  domain.  The  tip  of  the 
body  is  located  at  a  distance  Lj  downstream  of  the  inlet 
boundary,  the  body  center  is  located  at  a  distance  from 
the  side  boundary,  and  the  rear  end  of  the  body  is  kept  at  a 
distance  Lq  from  the  downstream  boundary.  If  a  small 
computational  domain  is  desired  a  partial  body  domain  can 
also  be  considered  as  shown  in  figure  1(b). 

For  a  three  dimensional  turbulent  flow  problem,  the 
ensemble  averaged  incompressible  Navier-Stokes  equations  in 
Cartesian  tensor  form  are 

=  0 


dU.  dU.  1  o 

/  _ i.  j.  TT  _ i.  \  -  i.  + - {  V  ( 
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where  u^u^  are  turbulent  Reynolds  stresses.  When  the  flow 
is  laminar  the  Reynolds  stresses  are  set  equal  to  zero. 
Equations  (1)  and  (2)  are  4  independent  equations  governing 
4  unknowns,  U,  V,  W,  P,  and  providing  existence  of 
solutions.  Unlike  laminar  flow,  if  the  flow  is  turbulent, 
equations  (1)  and  (2)  have  4  equations  but  with  10  unknowns. 
They  are  U,  V,  W,  P,  uu,  w,  W,  uv,  iw,  and  vw.  Clearly, 
the  closure  of  the  turbulent  problem  requires  additional 
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information  between  the  Reynolds  stresses  and  the  mean  flow 
variables.  The  closure  of  turbulent  flow  equation  can  be 
done  by  the  introduction  of  turbulence  models  for  the 
Reynolds  stresses,  u^u ^ ,  which  is  discussed  in  the  next 
section. 

2.2  Turbulence  Model 

In  order  to  solve  turbulent  flow  problems  governed  by 
Eqs.  (1)  and  (2),  the  Reynolds  stresses,  u^u ^ ,  must  be 
known.  In  general,  the  exact  equation  for  turbulent 
quantities,  u^u ^ ,  can  be  derived  from  Navier-Stokes 
equations.  However,  in  these  turbulent  transport  equations 
there  exist  additional  unknown  correlations  other  than  u^u^ . 
Therefore,  a  turbulence  model  must  be  established  to  close 
the  problem.  The  turbulence  model  may  be  classified 
according  to  how  the  Reynolds  stresses  that  appear  in  the 
ensemble  averaged  Navier-Stokes  equations  are  modelled. 
Generally,  the  more  the  number  of  differential  transport 
equations  are  solved  the  more  complete  the  turbulence  model 
becomes.  Hov/ever,  the  effort  in  analyzing  large  numbers  of 
differential  equations  will  uiso  increase.  As  mentioned  in 
chapter  I,  the  current  trend  in  turbulent  modelling  is  to 
model  the  Reynolds  stresses  by  transport  equations  for  the 
second  order  correlation.  In  the  past  ten  years,  the  two 
equation  k-e  turbulence  model  has  become  the  most  popular 


model  in  the  turbulent  flow  calculation. 
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In  the  k-e  turbulence  model  the  turbulent  kinetic 
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solved  from  two  modelled  differential  transport  equations. 

The  Reynolds  stresses,  is  then  a  function  of  k,  e  and 

other  known  mean  velocity  quantity.  Typically,  the  two 
equation  k-e  turbulence  model  contains  five  empirical 
constants  which  are  determined  from  some  basic  experimental 
configurations  such  as  grid  turbulence,  homogeneous  shear 
flow  and  boundary  layer  flow  [42].  Although  more  effort  is 
required  in  analyzing  the  two  equation  k-e  turbulence  model 
than  in  other  simpler  models  such  as  the  mixing  length  model 
proposed  by  Prandtl  [41],  it  is  found  [46]  that  the  k-e 
model  or  more  generally  the  second  order  closure  model  with 
its  empirical  constants  are  less  problem  dependent. 

Therefore,  some  hope  for  predictability  and  universality  of 
the  turbulence  model  is  established  although  the  model  still 
require  further  investigation  and  improvement. 

In  the  present  study  the  conventional  one-scale  k-e 
turbulence  model,  known  as  the  standard  k-e  turbulence 
model,  by  Launder  et  al.  [46]  is  considered.  In  the  k-e 
turbulence  model  the  Reynolds  stresses  u^u^  can  be  modeled 
either  approximating  the  differential  Reynolds  stresses 
transport  equation  into  an  algebraic  form  or  by  an  algebraic 
equation  based  on  Boussinesq’s  assumption  which  relating 
Reynolds  stresses  to  the  gradients  of  mean  velocities  as 
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Here  is  the  eddy  viscosity  and  based  on  the  dimensional 

analysis  of  (k,e)  we  have 

_ ■  3U.  3U.  - 

-  =  v^(  —  +  ^  )  -  J  ^ij  ^ 

where  is  an  empirical  constant  (=0.09-0.128),  k  is  the 
turbulent  kinetic  energy  per  unit  mass  (k=u^u^/2 ) ,  and  e  is 
the  dissipation  rate  of  k  (  =  u^u^/2  ) .  In  the  present 
study  generalized  Boussinesq's  equation  (3)  is  adopted. 

In  addition  to  algebraic  Reynolds  stresses  equation 
(3),  two  differential  transport  equations,  namely,  the 
turbulent  kinetic  energy  and  the  rate  of  dissipation  of 
turbulent  kinetic  energy  are  needed  to  close  the  problem.  In 
this  study  the  turbulent  kinetic  energy  ,k,  and  its 
dissipation  function  are  solved  from  following  two  modelled 
equations  ( 46 ] . 


i  =  air  <  ^  ^  =A>  Ir  >  -  <  ^ 


Here  t  in  Eq.  (5)  is  the  characteristic  turbulent  time  scale 

associated  with  the  destruction  of  e .  If  t  is  determined 

based  on  k  and  z  or  t=k/E  then  the  turbulence  model  is  the 

conventional  one-scale  k-£  turbulence  model.  The  model 

constants  C  ,  C.  ,  C  ,  C  ,  and  C  in  the  one- scale  k-E 
y  R  e  el  e2 
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turbulence  model  can  be  determined  from  several  basic 
experiments,  namely  isotropic  grid  turbulence,  homogeneous 
shear  flow,  and  boundary  layer  flow.  The  model  constants 
suggested  by  Launder  et  al .  [ 46 ]  are : 

%  =  0.09,  =  0.09,  =  0.07,  =  1.44,  ^ 

With  the  introduction  of  above  turbulence  model,  the 
problem  for  solving  turbulent  flow  is  closed.  A  unique 
solution  of  equations  (1)  to  (5)  can  be  obtained  for  U,  V, 

W,  P,  u^Uj ,  k  and  e  if  the  boundary  conditions  for  U,  V,  W, 

P,  k  and  e  are  properly  specified. 

2.3  Boundary  Conditions 

In  addition  to  the  governing  equations  (1)  through  (5), 
the  complete  specification  of  external  flow  past  a  body 
requires  an  adequate  prescription  of  boundary  conditions. 
This  means  that  the  flow  conditions  must  be  specified  at  the 
inlet  and  outlet  planes  and  at  the  lateral  boundaries  of  the 
flow  domain  of  interest  (see  figure  1).  It  should  be  noted 
that  the  boundary  location  may  be  placed  arbitrarily  with 
respect  to  the  solid  body  by  assigning  different  values  of 
Lj,  Lp  and  for  the  computational  domain. 

(1)  Inlet  plane:  The  inlet  plane  is  located  at  L,  distance 
upstream  (Fig.  1(a))  or  downstream  (Fig.  1(b))  from  the  tip 
of  the  body.  If  is  placed  far  upstream  from  the  tip  of 
the  body  then  the  uniform  velocity  profile  with  or  without 
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angle  of  attack  is  specified.  In  this  study  a  constant 
ambient  pressure,  zero  ambient  turbulent  kinetic  energy  k 
and  its  dissipation  rate  e  are  assigned  at  the  inlet  plane. 

If  inlet  plane  is  placed  at  Lj  distance  downstream  of  the 
tip  of  the  body  then  the  distribution  of  the  velocity 
components  (U,V,W),  pressure  P  and  the  turbulence  quantities 
(k,e)  are  prescribed  at  this  plane  either  from  detailed 
experimental  measurements,  boundary- layer  calculation,  or 
from  simple  flat-plate  correlations. 

(2)  Outlet  plane:  Since  this  study  includes  the  flow 
phenomena  inside  the  wake  region  the  outlet  plane  is  alv;ays 
chosen  to  be  far  downstream  of  rhe  body  where  the  second 
derivatives  of  all  variables  are  set  equal  to  zero.  This 
implies  that  the  effect  of  diffusion  from  the  outlet  plane 
to  the  upstream  locations  are  negligible. 

(3)  Lateral  boundaries:  There  are  three  types,  namely: 
walls,  planes  of  synunetry  and  free  stream  boundaries. 

(i)  Wail  boundaries:  The  wall  of  the  body  can  be  plane, 
cylinder  or  arbitrary  cross  section.  For  laminar  flow,  the 
numerical  solutions  are  carried  out  upto  the  wall  where  the 
usual  no-slip  conditions,  U=V=V/=0,  are  imposed.  For 
turbulent  flows,  since  the  turbulence  model  can  not  be 
employed  in  the  viscous  sublayer  region,  an  alternative 
method  should  be  used  instead  of  applying  no-slip  conditions 
directly.  In  this  study  the  two-node  wall  function  is  used 
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to  avoid  the  use  of  the  low  Reynold  number  turbulence  model 
or  a  large  number  of  grid  points  to  resolve  the  large 
gradients  in  the  near-wall  region.  The  basic  idea  of  the 
two-node  wall  function  is  the  numerical  solution  from  t; 
wall  to  the  first  two  nodal  points  near  the  wall  and  is 
replaced  by  a  semi-analytic  solution  obtained  from  the 
turbulent  inner  layer  equation  for  the  near-wall  region 
namely -the  log-law  equation  [47].  In  doing  so,  the  first 
two  computational  nodal  points  are  placed  at  nondimensional 
distance  y  ,  y  away  from  the  wall.  Here  the  values  of  y 
and  y  should  be  arranged  between  12  to  200  and  y  is 

defined  as  n  Y. 

+  T  ' 

y  7" 

where  is  the  friction  velocity  or  (/t^p)  with  as 
total  wall  shear  stress,  Y  is  the  distance  away  from  the 
wall.  If  are  respectively  the  resultant  velocities 

parallel  to  the  wall  at  first  two  nodal  points  as  shown  in 
figure  2,  then  wall  boundary  conditions  can  be  specified 
through  the  log-law  equation  by  the  following  steps. 

(1)  Using  an  initially  assumed  or  update  velocity 
Through  log-law  equation  to  obtain  . 

(2)  Using  U^  which  just  obtained  from  step  (1)  through  log 
-law  equation  to  obtain  velocity  U^. 

(3)  U^  is  then  used  as  the  boundary  condition  for  turbulent 


flow  calculation. 
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Figure  2.  Two-Node  Wall  Function 


In  this  study  a  two  dimensional  log-law  euqtion  for  U 
velocity  component  based  on  fully  developed  or  parallel  flow 
assumption  is  used.  It  is  [45] 

^  i  An  (E  y'^)  12  <  y'*'  <  200  (6) 

with  Karman  constant  k=0.42  and  integration  constant  E=9. 

The  corresponding  turbulent  kinetic  energy  k  and  its 
dissipation  rate  c  at  the  first  node  are  given  [47]  as 


k 


1  7^ 

M 


(7) 


Here  C  =0.09  is  determined  empirically  [42]  and  C  =0.128  if 
the  value  is  obtained  from  the  algebraic  reynolds  stress 
model  [ 47 ] . 

It  should  be  mentioned  that  the  normal  velocity 
componenent  is  taken  to  be  zero  at  the  first  nodal  point 
from  the  wall.  This  may  not  be  the  case  when  the  flow 
separates  near  this  node.  At  present  there  is  no  known  wall 
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function  for  flow  near  the  separation.  Thus  the  general 
practice  is  to  use  the  same  wall  function,  Eqs  (6)  and  (7), 
even  for  the  flow  involved  separation.  Numerically  the 
point  of  separation  is  unlikely  to  occur  aL  one  numerical 
node  exactly.  In  other  words  or  at  those  numerical 
nodes  even  close  to  the  separation  will  have  non  zero 
values.  Therefore  the  velocity  at  the  first  node  y"*^  will 
have  a  value,  either  positive  or  negative  depending  on  the 
direction  of  The  positive  value  denotes  the  point 

before  the  separation  while  the  negative  value  denotes  the 
point  behind  the  separation.  In  the  region  where  the  flow 
near  the  separation  zone,  either  before  or  behind  the 
separation  the  wall  functions  (6)  and  (7)  for  may  still 
be  approximately  used  since  the  flow  vector  is  properly 
oriented  and  since  the  velocity  at  y*  is  small  while  near 
the  separation.  Although  the  use  of  wall  function  based  on 
parallel  flow  assumption  for  the  nodes  near  the  separation 
is  questionable,  but  this  is  currently  done  in  just  about 
every  turbulent  prediction  calculations  using  a  wall 
function.  The  weak  justification  of  such  a  practice  is  that 
the  number  of  nodes  that  are  near  the  separation  is  far  less 
than  the  total  number  of  nodes  where  the  wall  functions  (6) 
and  (7)  are  applicable.  Thus  the  error  caused  by  the  above 
practice  may  be  confined  only  near  the  separation  point.  In 
the  actual  test  from  many  calculatio  '.s  it  seems  to  bear  out 
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that  the  separation  phenomena  can  be  reasonably  predicted 
with  this  practice. 

(ii)  Symmetric  planes:  In  some  flow  problems  the  symmetric 
condition  may  be  used.  For  example,  the  flow  past  a 
symmetric  body  with  no  angle  of  attack.  If  no  vortex 
shedding  is  expected  in  the  axisymmetric  flow  the  symmetric 
condition  may  be  imposed  on  the  line  or  plane  of  symmetry  so 
that  a  smaller  computational  domain  can  be  used  to  save 
computer  time  and  storage.  The  velocity  components  which 
are  normal  to  the  line  or  plane  of  symmetry  are  set  equal  to 
zero,  and  there  are  no  fluxes  of  any  variable  across 
symmetric  planes. 

(iii)  Free  stream  boundaries:  In  figure  1  it  is  shown  that 
the  free  stream  boundaries  were  set  at  distance  away  from 
the  axis  of  the  body.  Lq  is  set  far  enough  as  numerically 
and  computationally  possible  to  avoid  any  unrealistic 
representation.  The  normal  derivative  of  all  vailables 
along  the  free  stream  boundary  are  set  to  be  zero. 

After  specifying  the  boundary  conditions  along  the 
boundary  the  mathematical  description  of  the  problem  is 
complete.  Since  the  exact  mathematical  solution  can  nor  be 
obtained,  the  numerical  analysis  of  the  problem  is 
considered  and  discussed  in  the  next  chapter. 

For  the  convenience  of  the  numerical  analysis  the 
governing  equations  (1)  to  (5)  are  made  dimensionless  and 


summarized  below 
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Where  the  variables  are  made  dimensionless  with  the  body 
length  L  and  approaching  velocity  Uq  as  the  references.  They 


are 


X. 

X  =  — i 
^i  L  ' 


k*  = 
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There  are  five  turbulence  constants  C  ,  C.  ,  C  ,  C  ,  and  C  _ 

U  k  E  £  1  e2 

that  must  be  specified.  They  are 


=  0.09,  Cj^  =  0.09,  =  0.07,  =  1.44, 
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CHAPTER  III 
NUMERICAL  ANALYSIS 

In  the  following  sections  the  basic  idea  and  principle 
of  the  numerical  techniques  for  grid  generation  (body-fitted 
coordinate  system),  the  numerical  approach  (FA  numerical 
method)  and  the  derivation  of  the  pressure  equation  for 
modified  SIMPLER  algorithm  are  discussed. 

3.1  Body-Fitted  Coordinates 
In  order  to  develop  a  prediction  scheme  for  ^  three 
dimensional  flow  past  an  arbitrary  two  dimensional  or 
axisymmetric  body,  the  body-fitted  coordinate  system 
proposed  by  Thompson  et  al.  [26]  is  used  in  this  study. 

The  basic  idea  of  body-fitted  coordinate  system  is  to 
generate  a  curvilinear  coordinate  system  as  shown  in  figure 
3  which  has  coordinate  surfaces  coincided  with  all  the 
boundaries  of  a  general  multiply-connected  body  including 
the  boundaries  formed  by  solid  walls  and  external 
boundaries.  Thus,  on  the  transformed  domain,  the  numerical 
solution  of  the  governing  equations  may  be  obtained  on  a 
fixed  parallelepiped  domain  with  a  uniform  mesh  size.  In 
this  way  no  interpolation  of  the  boundary  variable  is 


(a)  Physical  Domain 


(b)  Transformed  Domain 


Figure  3.  Physical  And 
Transformed  Domain 
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required  regardless  of  the  shape  of  the  physical  boundaries 
or  the  spacing  of  the  curvilinear  surfaces  in  the  physical 
domain. 

These  body-fitted  coordinates  ($,  ii,  C)  can  be 
generated  from  the  solution  of  three  partial  differential 
equations  with  Dirichlet  boundary  conditions,  to  provide  the 
contour  of  ^(x,y,z),  n(x,y,z)  and  c(x,y,z)  on  the  physical 
plane -(x, y, z) .  The  partial  differential  equations  are 

VH  =  FI/  =  F2,  =  F3  •  (8) 

Here  7*  is  Laplacian  operator  and  FI,  F2  and  F3  are  control 
functions  which  are  used  to  concentrate  the  grid  lines  to 
the  desired  region. 

When  the  flow  problem  with  Eqs.  (1)  through  (5)  in 
(x,y,z)  physical  plane  are  transformed  by  Eq.  (8)  into  the 
(C,  H/  C)  transformed  plane,  the  computational  domain  will 
become  a  simple  rectangular  domain  which  is  shown  in  figure 
3.  Therefore  it  is  more  convenient  to  perform  numerical 
calculation  in  uniform  cubic  grid  in  the  transformed  domain 
(5,  Ti,  ?).  It  should  be  mentioned  that  in  this  study  the  K 
coordinate  on  the  transformed  domain  for  coxwenince  is  taken 
to  coincide  with  the  axial  direction,  x,  in  the  physical 
domain.  In  order  to  solve  Eqs.  (1)  through  (5)  in  (C,  n,  ?) 
coordinate  system  it  is  more  convenient  first  to  inverse  Eq. 
(8)  into  a  form  of  x(C,  n,  t;) ,  y(^,  n,  C)  and  z(5,  n,  C)  so 
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that  the  contour  of  n  and  ?  can  be  accurately  identified 
on  the  physical  coordinate  (x,y,z). 

If  M  is  the  Jacobian  of  the  transformation  from  (x,y,z) 
coordinates  to  (5/ii,?)  coordinates  then 


M  = 


^x 

\  ^  \ 

^x  ^z 


We  further  assume  that  the  inverse  transformation  exists  and 
is  continuous.  For  this  transformation,  the  Jacobian  J  is 


J  = 


^ 


so  that  MJ=1. 

Using  the  relationship  between  these  two  Jacobians,  Eq. 
(8)  can  be  inversely  rewritten  as 


(Flx^+F2x^+F3x^)  =  0 

“ll^55*^22S'nn'*“33y!C+2ce^jyj^+2a^3yj^+2a23y^. 

-KJ^(Fly^+F2y^+F3y^)  =  0 

•KT^  (Flz^+F2z^+F3z^)  =  0 
3 


where 


13 


"ki^kj 


k=l 


1  ^  i,j  5  3 


(9) 
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is  the  transformation  coefficient  and 


®2i  = 

®3i  =  ^Wn 


®i2  = 
®22 ' 
®32  = 


®13  “ 
®23  '  ^ 
®33  = 


With  suitable  boundary  conditions  for  the  computational 
domain,  Eq.  (9)  can  then  be  solved  by  any  stable  numerical 
method  to  produce  the  coordinate  relations  between  the 
physical  and  transformed  domain.  The  detail  of  numerical 
procedures  to  obtain  the  body-fitted  coordinates  is  further 
discussed  in  chapter  IV  and  V. 

After  calculating  the  coordinate  relationships,  the 
governing  equations  (1)  through  (5)  in  the  physical  domain 
must  also  be  transformed  to  the  body-fitted  coordinate 
system.  The  dimensionless  continuity  equation  (1)  in  the 
transformed  coordinate  system  becomes 

{j(e  u+£  v+E  w)}j,+  {J{n  u+n  v+n  v/)}  +  {  J(c  u-f^  v-t-c  w)}  =  o  (10) 

xyz<^  xyzf|  A.y^v, 


j  = 


X. 


x_ 


where  J  is  the  Jacobian  and  the  subscripts  x,  y,  z,  ...  etc. 
mean  the  derivative  with  respect  to  x,  y,  z,  ...  etc..  It 
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should  be  remarked  that  only  the  independent  variables  in 
the  physical  domain  (x,y,s)  are  transformed,  however  the 
dependent  variables  u,  v  and  w  are  not  transformed  since  the 
problem  can  be  solved  on  the  transformed  coordinates  without 
the  transformation  of  u,  v  and  w.  The  momentum  and 
turbulent  transport  equations  (2),  (4)  and  (5)  can  also  be 
rewritten  as 

9^55+  i*  (U) 


where  ^  can  be  u,  v,  w,  k  and  £  .  The  coefficients  a*^,  b*^ , 

.  etc.  in  Eq.  (11)  respectively  the  coefficient  for  u, 

V,  w,  k  and  c.  They  are  listed  in  table  3.  Again  only  the 
independent  variables  x,  y  and  z  are  transformed  to  the 
body-fitted  coordinates.  The  velocity  components  u,  v  and  w 
are  still  the  velocity  components  in  the  Cartesian  x,  y  and 
z  direction. 


3.2  FA  Formulation 

The  basic  idea  of  FA  method  proposed  by  Chen  et  al. 
[29-37],  is  the  incorporation  of  local  analytic  solution  in 
the  numerical  solution  of  partial  differential  equations.  In 
the  finite  analytic  method,  the  whole  region  of  the  problem 
is  divided  into  many  small  elements  in  which  the  governing 
equation  is  solved  analytically.  .An  algebraic  equation  which 
approximates  the  governing  eequation  is  then  obtained  when 
the  analytic  solution  is  evaluated  in  an  interior  node  of 
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the  element  for  numerical  solution.  The  principle  and 
procedures  in  obtaining  these  FA  solutions  are  illustrated 
in  detail  in  many  published  papers  by  Chen  et  al.  [29-37]. 
Here  we  derive  the  finite  analytic  (FA)  solution  for  a  three 
dimensional  unsteady  flow.  Detail  of  the  FA  coefficients 
which  are  used  in  this  study  are  given  in  Appendix  A. 

Mathematically  Eq.  (11)  shown  in  the  last  section  is  a 
fully  three  dimensional  elliptic  partial  differential 
equation  in  space.  An  accurate  and  complete  finite  analytic 
numerical  solution  for  Eq.  (11)  can  be  derived  [34]  based  on 
the  principle  of  the  FA  method  to  obtain  an  finite  analytic 
algebraic  equation  based  on  27-node  FA  element  as  shown  in 
figure  4(a).  However  the  finite  analytic  solution  based  on 
the  27-node  element  requires  large  storage  and  at  the 
present  it  is  beyond  the  computer  capacity  that  is  available 
for  the  user.  In  order  that  the  problem  of  three 
dimensional  flow  can  be  solved  with  the  limited  facilities, 
the  unsteady  three  dimensional  elliptic  partial  differential 
equation  (11)  is  solved  by  a  hybrid  finite  analytic-finite 
difference  method  as  follows.  Eq.  (11)  is  first  cast  into 
Eq.  (12)  where  the  derivatives  of  dependent  variables  with 
respect  to  time  t  and  the  axial  direction  are  shifted  into 

A 

the  source  term  s  as  shown  in  Eq.  (12). 


■jj  .  e'J’ 

g  9^.-  s 


(12) 
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In  the  hybrid  finite  analytic  and  finite  difference  method 
the  terms  in  the  source  term  of  Eq.  (12  )  *55,  ^5  and  are 
approximately  expressed  by  the  finite  difference  such  that 
by  the  implr^-it  or  backward  difference,  central 

difference  and  by  the  upwind  difference,  or 

- At - 


({.y  +  <t.D  -  2(j)p 


(if  b*^  >  0) 


(if  b^  <  0) 


Allspace  derivatives  0^,  41^^  are  evaluated  from  the  previous 


time  step. 


If  we  introduce  the  coordinate- stretching  functions 


,* _ n_  r*  = 

'  "/f*  '  /g* 


Eq.  (12)  is  reduced  to  the  standard  two  dimensional 
convective  transport  equation  described  in  Chen  &  Chen 


[34,37],  i.e.. 


with 
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for  a  local  element  with  dimensions 

AC  =  1 

=  =  ^ 

’  /g* 

This  hybrid  FA-FD  formulation  gives  the  11-point  algebraic 
solution  of  Eq.  (12)  for  three  dimensional  time  dependent 
flow  for  an  element  as  shown  in  figure  4(b)  as 

^  1-K^(C  b‘^+2e‘^+ ^) 

At 

Here  if  b'^  >  0,  =  1,  C2  =  0,  =  1 

if  b*^  <  0,  =  -1,  C2  =  -1,  =  0 

Figure  4(b)  shows  the  relation  between  each  of  the  11  nodes. 
In  Eq.  (13)  the  superscript  t-1  denotes  the  previous  time 
step,  and  the  term  with  the  superscript  i-1  means  the  value 
of  previous  iteration.  On  the  same  time  step  0^  and  are 
the  values  of  node  p  at  the  upstream  and  downstream  of  the  C 
coordinate  and  At  is  the  time  increment.  The  expressions  of 
these  FA  coefficients  Cp  are  listed  in  Appendix  A. 

Physically,  the  above  formulation  preserves  the  three 
dimensional  ellipticity  and  still  allows  the  recirculation 
to  exist.  In  Eq.  (13)  the  calculation  sweeps  iteratively 


|i-V 


(13) 
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along  the  ?  direction.  It  should  be  remarked  that  since  the 
numerical  solution  in  the  ^  direction  is  approximated  by 
finite  difference  with  only  one  upstream  and  one  downstream 
node  the  prediction  of  the  separation  or  the  vortex 
formation  in  the  ^  direction  can  only  be  regarded 
approximately.  Therefore  if  one  expects  a  flow  problem 
which  has  strong  recirculation  in  all  three  directions,  then 
it  is  suggested  that  dense  nodes  must  be  arranged  in  the  5 
axial  direction  or  small  spacing  in  the  axial  direction. 

3.3  Pressure  Equation 

To  complete  the  numerical  solution,  in  addition  to 
solving  the  finite  analytic  algebraic  equations,  i.e.,  Eq. 
(13),  for  variables  u,  v,  w,  k  and  e,  one  more  equation  is 
needed  for  solving  the  unknown  p.  There  are  several  ways  to 
solve  the  pressure  variable.  For  example.  Roach  [21]  solved 
the  pressure  varible  from  the  Poisson  equation  which  is 
derived  by  taking  the  divergence  of  the  momentum  equation. 

In  this  approach,  a  velocity  correction  term  is  incorporated 
in  the  Poisson  equation  where  velocity  is  corrected  to 
satisfy  the  continuity  equation.  In  the  other  methods, 
Patankar  and  Spalding  et  al .  (23)  proposed  to  use  the 
continuity  equation  for  the  pressure  variable.  The  basic 
idea  of  their  approach  is  to  express  the  velocity  variable 
in  the  continuity  equation  in  terms  of  pressure  variables. 
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The  equation  for  the  pressure  variables  is  obtained  when  the 
algebraic  expressions  for  the  velocity  from  the  momentum 
equation  are  substituted  into  the  continuity  equation  which 
is  expressed  either  in  a  finite  difference  or  finite  volume 
expression.  In  the  numerical  procedure,  the  pressure 
variable  is  then  updated  in  each  numerical  calculation  such 
that  the  velocity  components  respectively  solved  from  the 
momentum  equation  are  made  to  satisfy  the  conservation  of 
mass.  Depending  on  the  approximations  made  in  updating 
pressure,  different  governing  equations  for  pressure  may  be 
obtained.  Among  them,  the  pressure-update-Patankar  (PUP) 
scheme  [48]  combined  with  Pantankar-Spalding  p'  equation  (or 
called  SIMPLER  algorithm)  gives  the  best  result.  Here  p'  is 
known  as  the  pressure  correction  and  defined  as  the 
difference  between  the  true  or  exact  pressure  field  and  that 
of  the  approximate  or  incorrect  pressure  field.  In  the  PUP 
scheme,  instead  of  updating  pressure  gradually  from  the 
pressure  correction  p',  a  pseudovelocity,  u^ ,  obtained  by 
omitting  the  pressure  gradient  term  in  the  momentum  equation 
is  introduced  so  that  the  pressure  field  can  be  obtained 
from  a  guessed  velcoity  field.  The  general  procedure  of 
SIMPLER  (Semi-Implicit  Method  for  Pressure-Linked  Equations 
Revised)  algorithm  is  adopted  and  modified  in  this  study. 
Details  of  the  derivation  of  pressure  equation  and  the 
pressure  correction  equation  are  provided  in  the  following 
sections . 


(a)  3D  Control  Volume 


(b)  n“?  Cross  Section  (c)  ^-n  Cross  Sction 


Figure  5.  Typical  Control 
Volume  for  Pressure  Equation 
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Figure  5  shows  a  typical  control  volume  (shaded  area) 
that  is  used  to  derive  the  pressure  equation  based  on  mass 
conservation  applied  to  the  shaded  element  in  the  present 
study.  It  should  be  noted  that  the  shaded  element  for  the 
velocity  variables  has  a  smaller  control  volume 
(AC=ATi=Ae;=0. 5 )  in  the  transformed  domain  than  that  for  the 
pressure  variable.  All  the  velocity  components  u,  v  and  w 
are  specified  at  the  surface  nodes  e,  w,  n,  s,  u  and  d  of 
the  shaded  control  volume  and  are  assumed  known  and  stored. 
Then  the  pressure  p  is  assigned  at  the  surface  nodes  of 
unshaded  control  volume  (A5=Aii=Ac=l)  i.e.,  E,  W,  N,  S,  U  and 
D.  In  order  to  replace  the  velocity  variables  in  continuity 
equation  Eq.  (10)  by  pressure  variable,  we  first  decompose 
the  actual  velocity  field  (u,  v,  w)  in  the  momentum 
equations  Eq.  (13)  into  two  parts.  They  are 


where 
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Here  all  the  notations  have  been  described  in  Eq.  (13).  In 
Eq.  (14)  u,  V,  w  are  called  pseudovelocities  equal  to  the 
values  that  the  velocities  would  have  without  the  pressure 
contribution.  Then  substitution  of  Eq.  (14)  into  the 
continuity  equation  Eq,  (10)  written  in  the  pressure  control 
volume  i.e.,  the  shaded  control  volume  in  figure  5,  one 
obtains 

JV^)  -  (V^)  +  (V^)  -  (V^)  +  (V_)^  -  (V_),_^  =  0  (15) 

"^d  5u  nn  ns  ^  e  ^  w 


where  the  subscripts  d,  u,  n,  s,  e  and  w  denote  downstream, 
upstream,  north,  south,  east  and  west  side  of  the  shaded 
area.  And 


—  A 


V-  =  V-  +  CcPcr  "  '^n  ■’* 

S  S  S  S  'I  *  •  *  • 


(16) 


where 


‘’12  '  °u«x''x^°v5y''y'’'’w5z''z 


Dt-  =  d?!;+d??+d5c 
13  u  X  X  V  y  y  w  z  z 


=  D  n  ?  +D  n  ?  +D  n  c 
23  u  x^x  V  y^y  w  z  z 

=  J(D  5^+D  5^) 

t  u  X  V  y  w^z' 

c  =  J(D  n^+D  n^+D 
n  u  X  V  y  w  z) 

C„  =  J(D  ?^+D 
?  u  X  V  y  w^z) 
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Here  C^/  C^,  are  the  mean  pressure-velocity  linkage 

coefficients  obtainable  from  the  transformed  momentum 

equation,  and  variables  V^,  V  ,  v  and  v^.,  V  ,  V  are  the 

c  s  H  ? 

velocities  and  pseudovelocities  in  the  body  fitted 
coordinates  along  the  ti  and  ?  directions.  Similarly  P^/ 
and  respectively  are  the  pressure  gradients  in  the 
transformed  domain.  Using  central  difference  for  these 
pressure  gradients,  one  may  rewrite  Eq.  (15)  and  obtain  the 
pressure  equation  as 


Vp  =  W  W  W  W  W  W 

where 

^  =  <=5'u'  ‘  <S>n' 

=  <^c>d  -  ^Vu  *  <^n>n  - 


a^^,  Sg,  ....  etc.  are  the  coefficients  of  pressure  equation 
(17). 

In  deriving  the  pressure  equation  Eq.  (17)  a  proper 
choice  of  grid  system  is  very  important.  There  are  two 
commonly  used  grid  systems  in  the  numerical  calculation.  One 
is  the  staggered  grid  system  which  distributes  the  variables 
at  different  nodes,  the  other  is  the  regular  grid  system 
which  solves  all  varicbles  at  the  same  node.  In  the 
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following  sections  these  two  different  grid  systems  will  be 
investigated  and  discussed. 

3.4  Staggered  Grid  System 
Figure  6  is  the  general  view  of  the  staggered  grid 
system  [49].  If  the  dashed  lines  represent  the  control 
volume  faces,  the  pressure  and  scalar  variables  such  as  k 
and  are  stored  at  the  center  of  the  control  volume,  while 
the  velocity  components  are  stored  at  midway  between  these 
nodes  denoted  with  arrow  "t"  for  v  component  and  for  u 
component.  Here  the  velocity  components  are  perpendicular 
to  the  control  surfaces  or  in  the  direction  of  the 
coordinate  lines. 

In  this  study  all  equations  are  transformed  and  solved 
on  the  transformed  domain  (C/  H/  C)/  where  the  coordinate 
lines  5/  11/  C  in  general  are  curvilinear  and  non-orthogonal 
in  the  physical  (x,y,z)  domain.  The  velocity  components  u,  v 
and  w  that  are  defined  in  the  x,  y  and  z  direction  are 
neither  perpendicular  to  the  control  surfaces  nor  in  the 
direction  of  the  coordinate  lines  n  and  C.  Therefore  the 
velocities  in  the  n,  C  directions,  must  be  projected 
from  the  velocity  components  u,  v,  w  defined  in  the  x,  y  and 
z  directions.  Consequently  examining  the  source  term  of 
pressure  equation  Eq.  (17),  one  finds  a  total  of  eighteen 
velocity  components  are  needed,  three  velocity  variables  in 


Figure  6.  Typical  Control 
Volume  In  Staggered  Grid  System 
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each  of  the  six  surfaces,  in  each  small  control  volume  as 
shown  in  figure  5.  The  projection  of  u,  v,  w  velocities  in 
the  X,  y  and  z  coordinates  to  the  ti  and  C  coordinates 
certainly  provides  numerical  error  either  from  interpolation 
or  difference  approximation.  However,  in  the  staggered  grid 
system  as  shown  in  figure  6  the  velocity  component  u  at  node 
points  d  and  u,  velocity  component  v  at  node  points  n  and  s, 
and  velocity  component  v/  at  node  points  e  and  w  had  been 
solved  from  the  momentum  equation  or  Eq.  (13),  thus  six  of 
eighteen  velocity  components,  namely,  u^,  u^,  v^,  v^,  w^  and 
w  can  be  obtained  directly  from  the  surfaces.  It  is, 
therefore,  only  to  approximate  the  remaining  twelve  by 
interpolation  or  difference  approximation. 

One  way  to  reduce  the  numerical  error  is  to  reduce  the 
use  of  interpolation  or  difference  approximation.  This  can 
be  achieved  by  letting  one  of  the  transformed  coordinate 
lines,  say  coordinate  to  be  just  a  function  of  x  only.  In 
this  way  the  velocity  component  u  is  perpendicular  to  the 
n-?  section,  no  other  velocity  components  are  needed  in  ^ 
direction.  In  other  v/ords  the  velocity  component  u  in  rhe  x 
direction  is  identical  to  that  in  the  K  direction. 

Therefore  in  the  source  terra  of  Eq.  (17)  only  eight  velocity 
components  are  still  unknown  on  the  n-C  section  and  require 
interpolation.  The  coordinate  arrangement  of  letting 
4=5 (x)  is  reasonable  since  in  the  present  investigation  of 
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the  flow  past  an  axisymmetric  body  most  of  the  experimental 
measurements  are  made  along  the  section  normal  to  the  x  axis 
of  the  body,  that  is  on  the  y-z  or  n-C  plane.  Further  more 
if  the  flow  past  the  body  is  predominately  along  the  x 
direction  then  the  magnitude  of  the  velocities  v  and  w  are 
in  general  smaller  than  that  of  the  u  velocity.  Therefore,  a 
simple  linear  interpolation  can  be  used  here  to  evaluate 
these  j^/alues  of  v  and  w  components  from  the  velocity  field 
known  at  the  previous  time  step  or  iteration  without  causing 
too  much  error.  In  summary,  under  the  present  arrangement 
the  source  term  of  pressure  equation  Eq.  (17)  on  the 
staggered  grid  system  only  needs  the  following  eight 
approximations . 


u  = 


u  = 


n 


1  f 

4?“nb' 

1  y 

4  i^nb' 


^e  ~  4  I'^nb' 

7  -  1  r 
n  4  I'^nb' 


u 


w 


-  1  r 
”  "T  ^u  ,  , 
4  1  nb 


,  1  r 

~  T  U/ 
s  4  I  r±) 


''w  =  ?  f'^nb' 

”s  =  ?  ?”nb 


V/here  nb  denotes  the  known  neighbor  nodes  surrounding  the 
unknown  surface  node  e,  w,  n  and  s. 

In  order  to  impliment  the  arrangement  of  a  staggered 
grid  in  computer  programing  it  requires  not  only  a  large 
computer  storage  but  also  tedious  work.  As  an  alternative 
the  regular  grid  system  which  solves  all  variables  at  the 
same  node  maybe  used  in  the  present  computation.  It  is 
discussed  in  the  next  section. 
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3.5  Regular  Grid  System 

Figure  7  shows  a  typical  control  volume  in  the  regular 
grid  system.  Since  all  variables  u,  v,  w,  p,  k  and  e  are 
stored  and  calculated  at  the  same  node  in  the  unit  control 
volume  there  are  no  velocity  components  at  the  surfaces  of 
the  small  control  volume  shown  as  the  shaded  area  in  figure 
7  for  the  pressure  equation  Eq.  (17).  It  is,  therefore, 
necessary  to  approximate  all  velocity  components  by 
interpolations.  The  interpolations  are 


‘=n>n  =  l(Kn'/‘S'pl- 


‘Vs  =  5t<Vs^(v)pl, 
'^c'w  = 


where  all  the  notations  have  been  described  in  Eq.  (15). 

Although  the  regular  grid  system  may  commit 
interpolation  error,  the  use  of  the  regular  grid  system  when 
compared  with  the  staggered  grid  system  can  save 
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computational  time  and  storage.  Therefore  in  the  present 
study  the  regular  grid  system  is  used  for  laminar  flow  over 
a  finite  flat  plate  with  or  without  angle  of  attack. 

3.6  Pressure  Correction  Equation 
The  governing  equations  formulated  in  chapter  2  are 
Eqs.  (1)  to  (5).  These  equations  are  recasted  into  Eqs. 

(10)  and  (11)  in  the  transformed  domain.  We  are  thus 
required  to  solve  Eq.  (11)  for  u,  v,  w,  k  and  s  and  Eq.  (10) 
for  p.  The  corresponding  algebraic  equations  for  Eqs  (11) 
and  (10)  are  Eqs.  (13)  and  (17).  The  system  of  these 
nonlinear  equations  are  solved  iteratively  in  the  present 
study.  In  this  section  we  derive  a  scheme  to  ensure  that 
the  iterative  procedure  leads  to  a  converged  solution. 

Before  we  derive  the  pressure  correction  equation  it  should 
be  noted  that  either  with  staggered  grid  or  regular  grid 
systems  when  both  the  momentum  and  continuity  equations  Eqs. 
(13)  and  (17)  are  exactly  satisfied  the  value  of  DS  on  the 
right  hand  side  of  pressure  equation  Eq.  (17)  will  be  zero. 
However  during  the  iterations  because  momentum  and  mass  are 
not  conserved  in  the  volume  element  there  exists  some  error 
in  u,  V,  w  and  therefore  DS  in  Eq.  (17)  is  nonzero.  The 
pressure  correction  equation  is  derived  to  improve  the 
convergence  of  the  solution.  The  following  are  the 
derivation  and  steps  considered  in  this  study  for  solving 
Eqs.  (13)  and  (17)  iteratively. 


During  iterations  we  first  compute  the  velocity  field 
from  Eq.  (13)  with  a  guessed  pressure  field  p*.  With  the 
guessed  pressure  field  p*  given,  one  can  solve  the  momentum 
equation  Eq.  (13)  directly  and  obtain  the  guessed  velocity 
field  u*.  At  the  beginning  since  p*  is  not  a  correct 
solution  so  that  u^  do  not  satisfy  the  continuity  equation. 
Then  one  may  assume  the  velocity  correction  u^  which  when 
added-to  u^  will  satisfy  the  continuity  equation  Eq.  (10). 
Thus  substituting  u^  (=u^+u^)  into  continuity  equation  Eq. 
(10),  one  obtains 

[j(C^u’HyV'+5^w')]^  +  [J(nj^u'+n^v'4n^w')l^ 

+  [J(?^u'+y+?^w')]^  =  -ERR  (18) 

ERR=  [j(C^^u*+CyV*+52w*)]^  +  [j(njjU*-Hi^v*+n2W*)]^ 

[j(C^u*+?yV*+C^w*)]^ 

Since  there  are  three  velocity  corrections  (u' ,  v' ,  w' )  in 
one  equation,  it  is  impossible  to  solve  Eq.  (18)  directly. 
Alternatively,  one  may  assumes  that  p  is  the  correct 
pressure  field  to  produce  correct  velocity  u^  then  the 
correct  pressure  p  may  be  written  as  the  sum  of  the  pressure 
correction  p'  and  the  inaccurate  pressure  p*  or  p=p*+p' . 
Substituting  both  velocity  and  pressure  expressions  into  h*^ 
term  of  the  momentum  equation  Eq.  (13),  one  obtains  the 
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equations  for  velocity  correction  and  pressure  correction 


p' .  They  are  ®  ^  , 

u'  -  1  nb  nb 

8 

E  C  ,  v' 
v'  =  I  rib 

I  C  w' 

_  1  ■  nb  nb 
w  — - 


—  c*  +  D  D* 

U  U^X 


— ^  s'  + 


;3r^v 


s’  + 


W 


If  the  first  two  terms  of  equation  (19)  were  retained,  they 
would  have  to  be  expressed  in  terms  of  the  pressure 
corrections  and  the  velocity  corrections  at  the  neighbors  of 
u-j  .  These  neighbors  would,  in  turn,  bring  their  neighbors, 
and  so  on.  Ultimately,  the  velocity  correction  formula  would 
involve  the  pressure  correction  at  all  grid  points  in  the 
calculation  domain,  and  the  resulting  pressure  correction 
equation  would  become  unmanageable.  Therefore  in  the 
present  study  the  first  two  terms  of  equation  (19)  will  be 
neglected,  Eq.(19)  is  simplized  to 


U'  =  D^p^,  y  =  D^' ,  „■  = 


The  omission  of  the  first  two  terms  enables  us  to  cast  the 
relation  between  velocity  correction  and  pressure  correction 
in  a  much  simpler  form.  The  omission  of  the  first  two  terms 
in  Eq.  (19)  can  be  justified  since  if  p'  is  zero  u/  will  be 
zero  too  which  give  the  right  asymptotic  behavior  for 
convergence.  In  fact  the  converged  solution  should  not  be 
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influenced  by  any  approximations  made  in  correction 
equations  during  iterations.  In  other  words,  all 
formulations  of  the  correction  equations  should  give  the 
same  final  solution  if  the  formulation  leads  to  a  converged 
solution.  However  the  rate  of  convergence  of  the  solution 
will  depend  on  the  particular  formulation  of  the  correction 
equations  used.  If  a  too  simplistic  formulation  is  used, 
divergence  may  result. 

From  the  above  formulation  it  is  clear  that  if  the 
pressure  correction  p'  can  be  solved  then  the  guessed 
velocity  u^  can  be  approximately  corrected  by  the  velocity 
correction  u^  to  satisfy  the  continuity  equation  Eq.  (10). 
To  derive  an  equation  for  the  pressure  correction  p' ,  the 
same  procedure  from  Eq.  (14)  to  Eq.  (17)  can  be  followed  by 
dividing  the  velocity  field  u.  into  guessed  velocity  u*  and 
velocity  correction  u^  which  is  e.xpressed  by  Eq.  (20),  i.e. 
u=u*+D^p' ,  v=v*+D^p' ,  w=w*+D^p' .  Substituting  these 
expressions  into  the  continuity  equation  Eq.  (10),  one  had 
the  pressure  correction  equation  which  is  similar  to  the 
pressure  equation  Eq.(17). 

Vp  =  Vi*  W  W  W  W 

Here  a^^,  a^,  ....  etc.  are  as  the  same  as  Eq.  (17)  and  DS' 
is  same  as  DS  in  Eq.  (17)  except  that  the  values  of  u  ,  v  , 
Q  ,  and  p*  in  the  DS  are  replaced  by  u*,  v*,  w*,  and  p' . 
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After  using  pressure  correction  p'  to  correct  the 
velocity  field  to  satisfy  continuity  equation,  the  next  step 
is  to  update  the  pressure  field  by  solving  pressure  equation 
Eq.  (17)  with  the  velocity  u^  which  had  just  been  corrected. 
Although  the  velocity  field  (u^=u^+u^'  )  had  been  corrected  to 
satisfy  continuity  equation  they  may  not  satisfy  momentum 
equation  unless  the  velocity  correction  u.[  are  zero,  i.e. 
u^=u^  and  u*  satisfied  the  momentum  equation  already. 
Therefore,  in  order  to  have  the  solutions  of  p  and  u^  that 
both  satisfy  the  momentum  and  continuity  equations 
simultaneously,  we  need  an  iteration  procedure  to  ensure  the 
convergence  of  the  solution.  From  Eq.  (20),  it  shows  that 
if  the  pressure  correction  p'  is  zero  then  the  convergent 
solutions  of  p  and  u-  will  satisfy  both  the  momentum  and 
continuity  equqtions  simultaneously.  Thus,  the  convergent 
criterion  in  this  study  is  based  on  the  value  of  the 
pressure  correction  p'  that  tends  to  be  zero.  Generally,  if 
the  value  of  ',_essure  cc  .  action  p'  is  smaller  than  one 
percent  of  value  of  pressure  p  the  solution  is  considered  as 
a  convergent  solution. 


3.7  Algorithm 

Accuracy  and  efficiency  are  two  major  considerations  in 
designing  the  algorithm  of  a  numerical  program.  In  this 
study  a  modification  to  SIMPLER  algorithm  (23]  is  made  so 
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that  it  is  more  efficient  in  computational  time  and  storage 
and  more  accurate  in  compucational  results.  The  overall 
numerical  procedure  for  a  three  dimensional  case  used  in 
this  study  may  be  summarized  as  follows. 

1.  Start  the  inlet  (or  present)  station  with  the  guessed 
pressure  p*  and  velocity  distribution  uj . 

2.  Calculate  FA  coefficients  from  Eq.  (12)  with  the 
guessed  velocity  u^  or  best  velcoty  available  u^  then 
solve  starred-velocity  u^  from  Eq.  (13)  with  the 
guessed  pressure  p*. 

3.  Calculate  pressure  correction  p'  from  Eq.  (21)  with 
the  starred-velocity  u?'  in  DS'. 

4.  Calculate  velocity  correction  u.'  from  Eq.  (20)  with 
the  pressure  correction  p' . 

5.  Obtain  the  correct  velocity  u^  by  combining  the 
starred-velocity  xit  and  the  velocity  correction  nl 
for  the  present  iteration. 

6.  Calculate  the  pseudovelocity  u^  as  defined  in  Eq. 

(14)  with  the  correct  velocity  u^ . 

7.  If  it  is  turbulent  flow  solve  k  and  e  from  Eq.  (13) 
with  the  correct  velocity  u^ . 

8.  Repeat  from  step  2  to  step  7  until  the  last  station 
was  reached.  This  repeatition  is  called  the  inner 
loop. 
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9.  Calculate  pressure  field  p  from  Eq.  (17)  with  the 
pseudovelocity  u^  in  the  whole  computational  domain 
based  on  the  correct  velocity  u^ .  The  resulting 
pressure  field  is  considered  as  the  updated  pressure 

p*. 

10.  Start  from  the  inlet  station  in  step  1  with  the 
update  pressure  field  p  and  correct  velocity  u^ . 

This  part  is  called  the  outer  loop. 

11.  Stop  if  the  steady  state  criterion  is  achievbed,  or 
the  time  t  exceeds  the  maximum  time  period  assigned. 

It  should  be  remarked  here  that  the  line  by  line 
tridiagonal  scheme  is  adopted  to  solve  pressure  equation  Eq. 
(17)  and  pressure  correction  equation,  Eq.  (20),  while  the 
modified  strongly  implicit  MSI  procedure  (50),  which  uses 
lower  and  upper  triangle  matrices  to  solve  9-point 
difference  scheme  at  the  same  time,  is  adopted  to  solve  Eq. 
(13)  for  other  variables  u,  v,  w,  k  and  z. 

3.8  FANS-3DEF  Program 

In  the  present  study  a  computer  program  called 
FANS-3DEF  is  developed.  FANS-3DEF  (Finite  Analytic 
Numerical  Solution  of  Three  Dimensional  External  Flow) 
consists  of  a  preprocessor  and  a  main  solver.  This  program 
includes  options  for  (1)  two  or  three  dimensional  flow,  (2) 
staggered  or  regular  grid  system,  (3)  incompressible  laminar 
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or  turbulent  flow  and  (4)  two  types  of  turbulence  model.  It 
is  compiled  by  FORTRAN  77  compiler,  and  has  been  implemented 
and  tested  on  PRIME  750  at  the  University  of  Iowa.  In  this 
section  a  brief  introduction  of  this  program  is  given.  The 
detailed  discussion  of  the  whole  program,  the  flow  chart  of 
main  program,  I/O  system  and  two  examples  of  how  to  control 
I/O  system  will  be  given  in  appendix  B. 

The  main  structure  of  a  general  program  should  contain 
(1)  data  input  module  (preprocessor)  (2)  analysis  and 
solution  (solver)  (3)  output  module  (postprocessor).  This 
is  illustrated  in  the  following  figure. 
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Figure  8.  Simplified 
Schematic  Of  A  General  Program 

In  the  present  FANS-3DEF  program  the  output  module 
(postprocessor)  is  not  included.  This  is  partly  because  at 
the  present  the  graphic  package  is  highly  hardware  orinted 
and  partly  because  there  are  many  professional  graphic 
packages  readily  available.  For  example,  at  the  University 
of  Iowa  a  graphic  package  called  'GCS'  is  available  and  can 
be  adopted  as  the  output  module. 

In  the  FANS-3DEF  program  before  the  solver  can  be 
activated  to  solve  the  problem,  sufficient  information  must 
be  transmitted  by  the  user  to  the  data  input  module 
(preprocessor).  This  input  system  is  described  in  detail  in 
appendix  B.  put  is  completed  then  may  initiate  the  problem 
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the  main  program  of  FANS-3DEF.  The  computer  program 
FANS-3DEF  has  been  employed  to  calculate  a  variety  of 
two-dimensional,  axi symmetric  and  three-dimensional  flows. 
In  the  next  three  chapters  some  representative  examples  and 
solutions  are  given  to  illustrate  the  capability  of  the 
numerical  method  used  in  this  study.  Suggestions  for  future 
applications  are  also  given. 
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CHAPTER  IV 

TWO  DIMENSIONAL  FLOW  OVER 
A  FINITE  FLAT  PLATE 

In  this  chapter  the  flow  over  a  finite  flat  plate  is 
considered.  This  is  an  important  and  fundamental  external 
flow  involving  the  development  of  the  boundary  layer  flow  on 
the  plate  and  the  evolution  of  the  w ^ke  behind  the  plate. 
Although  the  geometry  is  simple  in  this  case,  and  Cartesian 
coordinates  can  be  used  to  solve  the  flow  directly  in  the 
physical  plane,  the  body-fit  '3  coordinates  in  the  FANS-3DEF 
(Finite  Analytic  Numerical  Solution  of  Three  Dimensional 
External  Flow)  are  still  used  in  order  to  verify  the 
technique  and  program  of  the  grid-generation.  The  numerical 
solution  of  this  case  .  '.i  provide  a  useful  test  of  the 
numerical  method  and  the  modified  SIMPLER  solution  procedure 
for  computing  pressure  and  velocities  during  the  iteration 
and  a  verification  of  turbulence  models.  In  the  following 
sections  the  solutions  for  both  laminar  and  turbulent  flows 
over  a  finit  flat  plate  are  given.  The  solution  of  laminar 
flow  is  first  examined  to  verify  the  numerical  algorirhm  and 
numerical  scheme  used  in  the  FANS-3DEF.  The  solution  of 
turbulent  flow  is  then  considered.  The  turbulent  solution 
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may  be  used  to  examine  the  predictability  of  the  turbulence 
models . 


4.1  Numerical  Grid  System 

Figure  9  shows  the  computational  domain  of  the  finite 
flat  plate.  If  the  Cartesian  coordinate  (x,y)  in  the 
physical  plane  is  chosen  with  distances  x  and  y  normalized 
by  the  plate  length  L,  then  x=0  and  1  correspond  to  the 
leading  and  trailing  edges  respectively,  and  y  is  the  normal 
distance  to  the  plate.  Since  the  solution  of  variables  u, 

V,  w,  k  and  s  vary  rapidly  in  the  neighborhood  of  the 
leading  and  trailing  edges  than  other  places,  more  grids  are 
needed  around  these  two  regions.  A  desired  grid 
distribution  can  be  arranged  by  stretching  and  condensing 
the  grids  along  the  x,  y  coordinates  in  the  physical  plane. 
In  this  study  a  nonuniform  rectangular  grid  is  generated 
using  the  body-fitted  coordinate  technique  as  described  in 
chapter  III.  With  x=x(5),  y=y(n),  Eq-  (9)  is  simplified  to 


where 
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If  the  control  functions  FI  and  F2  are  prescribed  a  priori, 
then  Eq.  (22)  can  be  solved  for  the  coordinate  variables 
(x,y)  as  a  function  of  the  uniform  body  fitted  coordinates 
In  ana-lysing  Eq.  (22)  one  may  choose  the  control 
functions  FI  and  F2  to  remain  constant  within  each  numerical 
cell,  thus  Eq.  (22)  is  solved  analytically  with  x(1,-0)=Xq, 
x(-l,0)=x.j,  y(0,l)=yj^  and  y(0,-l)-yg. 
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,  _-a 


e^y  +  e  °y 
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The  subscript  P,  D,  U,  N  and  S  denote  the  node  at  center, 
downstream,  upstream,  north  and  south  of  the  numerical  cell 
as  shown  in  figure  10.  Therefore  for  every  nodal  location 
there  is  one  equation  (23)  to  govern  the  transformation. 

For  the  computational  domain  as  shown  in  figure  9  there  is  a 
set  of  simultaneous  algebraic  equations  of  Eq.  (23)  which 
can  be  solved  easily  by  the  tridiagonal  algorithm  if  the 
appropriate  boundary  conditions  for  the  computational  domain 
and  the  flat  plate  are  provided. 
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4.2  Laminar  Flow  Without  Angle  Of 
Attack 

To  compare  the  results  of  this  study  with  those  shown 
by  Chen  and  Patel  [22],  same  values  of  Al,  A2  and  A3  are 
given.  They  are  Al=0.3,  A2=0.2,  A3=0.4  and  5^=19  at  x=0, 

^2=49  at  x=l,  11=1  at  y=0  and  ii=10  at  y=0.2196.  Thus,  a 
65x10  mesh  was  used  to  cover  the  physical  region  that 
extends  from  a  distance  1.385L  upstream  of  the  leading  edge 
to  3.488L  downstream  of  the  trailing  edge,  and  0.2196L 
normal  to  the  plate,  with  the  grid  concentrated  in  the 
neighborhood  of  the  leading  and  trailing  edges  and  the 
plate.  Figure  9  shows  the  numerical  grid  in  the  whole 
computational  domain. 

In  order  to  compare  with  some  previous  studies 

5 

[22,51,52],  the  Reynolds  number  Re=10  is  chosen  for  the 
calculation  of  laminar  flow  over  the  flat  plate  without 
angle  of  attack.  In  this  study  the  regular  grid  system 
discussed  in  section  3.5  is  used  and  the  incompressible 
laminar  Navier-Stokes  equations  Eqs.  (1)  and  (2)  with  u^Uj=0 
are  solved.  The  uniform  velocity  with  zero  pressure  was 
specified  at  the  upstream  station  x=-1.385L.  Symmetric 
boundary  condition  at  y=0  and  free  stream  boundary  condition 
outside  the  computational  domain  at  y=0.2196L  are  prescribed 
as  discussed  in  chapter  II.  The  FANS-3DEF  is  then  used  to 
solve  this  problem  in  which  Eqs.  (1)  and  (2)  are  expressed 
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in  the  algebraic  form  on  the  body-fitted  coordinates  as  Eqs . 
(13)  and  (17).  The  solutions  for  Eqs.  (13)  and  (17)  are 
obtained  with  the  time  marching  procedure.  Since  this  is  a 
steady  state  flow  problem  a  large  time  increment  can  be 
used,  here  At=l  is  used. 

Figure  11  shows  the  history  of  the  dimensionless 
pressure  distribution  (p=  /pU^  )  before  the  plate, 

on  the- plate  and  along  the  wake  centerline  calculated  at 
different  time  steps.  The  flow  starts  with  an  initially  zero 
pressure  throughout  and  uniform  velocity  u=l,  v=0.  It  is 
seen  that  the  solution  reaches  the  steady  state  first  around 
the  leading  edge  in  10  time  steps,  v/hile  the  flov/  in  the 
wake  area  is  still  in  the  transient  change  and  becomes 
steady  after  30  time  steps.  Figure  12  compares  the  pressure 
distribution  around  the  trailing  edge  predicted  by  the 
FANS-3DEF  with  other  previous  studies.  It  is  seen  that  the 
present  analysis  predicts  a  pressure  distribution  betv;een 
that  calculated  by  Chen  and  Patel  [22]  also  that  of 
Saint-Victor  and  Cousteix  (51),  and  that  calculated  by  Rubin 
and  Reddy  [52].  It  should  be  remarked  that  Llie  present 
solution  is  obtained  from  the  elliptic  solution  by 
specifying  the  upstream  condition  at  x=-1.305L  v/i  Lh  uniform 
free  stream,  and  the  downstream  condition  at  x=4.488L  v/ith 
vanishing  second  derivatives.  The  previous  studies 
[22,51,52]  v/ere  based  on  partially  parabolic  solution 
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Figure  11.  Convergence  History  Of  The  Pressure  Di 
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specifying  the  upstream  condition  on  the  flat  plate  behind 
the  leading  edge.  Rubin  and  Reddy  used  the  triple-deck 
solutions  and  obtained  the  solution  with  the  Blasius  profile 
imposed  at  a  large  distance  upstream  of  the  trailing  edge  on 
the  plate  (x=0.1L),  whereas  the  other  two  methods  [22]  and 
[51]  specified  the  initial  conditions  on  the  plate  at  x=0.5L 
with  Blasius  solution.  Chen  and  Patel  [22]  had  investigated 
the  solution  with  the  initial  conditions  specified  closer  to 
the  leading  edge  (typically  x=0.18L)  and  found  that  the 
pressure  distribution  along  the  flat  plate  will  be  lower  and 
hence  closer  to  the  present  solution.  They  also  commented 
on  the  influence  of  the  location  of  the  outer  boundary  of 
the  solution  domain  on  the  upstream  pressure  distribution. 

In  the  present  study  the  Navier-Stokes  equations  are  solved 
by  FANS-3DEF.  The  pressure  distribution  around  the  leading 
edge  is  predicted  and  shown  that  the  peak  value  of  the 
pressure  at  the  leading  edge  is  about  0.156  which  is  not  a 
negligible  value.  This  is  in  contrary  to  the  boundary  layer 
approximation  that  assumes  the  pressure  is  uniform  even  at 
the  leading  edge.  The  prediction  of  non  zero  pressure  at 
the  leading  edge  is  physically  sound,  since  the  flow  is 
decelerated  from  a  uniform  velocity  distribution  before 
reaching  the  plate  to  zero  velocity  on  the  plate  surface. 

The  pressure  at  the  leading  edge  is  thus  expected  to 
increase  from  this  velocity  deceleration.  Once  the  flow 
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past  the  leading  edge,  the  magnitude  of  velocity 
deceleration  is  then  gradully  reduced.  Consequently  the 
pressure  drops  to  almost  that  of  the  free  stream  value 
again. 

The  wall  skin  coefficient  (  C^=/^t ^PUq  )  shown  in 
figure  13  indicates  that  there  is  a  feed  back  from  the 
downstream  since  the  skin  friction  is  increased  near  the 
trailing  edge.  Physically  this  is  due  to  flow  near  the 
trailing  edge  and  is  influenced  by  the  acceleration  of  the 
flow  in  the  wake  because  the  flow  is  no  longer  hold  to  the 
no-slip  ::ero  velocity  at  the  center  line.  When  the  flow  at 
the  center  line  is  accelerated,  the  velocity  gradient  normal 
to  the  plate  near  the  trailing  edge  is  increased  and  hence 

5 

the  skin  friction.  At  Re=10  it  seems  that  the  flow  from 
x=0.8L  to  the  trailing  edge  are  affected  by  the  wake  flow. 
The  prediction  of  skin  friction  by  the  FANS-3DEF  in  the 
trailing  edge  region  is  in  good  agreement  with  that 
predicted  by  other  methods.  From  the  present  result  it  also 
shows  that  the  Blasius  solution  may  be  specified  in  the 
region  0.4<x/L<0.8  of  a  flat  plate  to  predict  the  wall  skin 
coefficient  in  the  trailing  edge.  Figure  13  also  shows  that 
in  the  leading  edge  region  the  present  analysis  of  the 
Navier-Stokes  equations  shows  that  the  Blasius  solution 
based  on  the  boundary  layer  equation  predicts  higher  value 
of  wall  skin  friction.  Figure  14  shows  the  velocity 


Figure  13.  Skin  Friction  On  The  Flat  Plate 


Figure  14.  Wake  Centerline  Velocity 
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variation  along  the  wake  centerline.  Here  the  present 
solutions  agree  well  with  that  predicted  by  Saint-Victor  and 
Cousteix  [51].  When  compared  to  the  present  solution  one 
finds  that  the  analysis  of  Chen  and  Patel  [22]  predicted  a 
higher  velocities  and  that  of  Rubin  and  Reddy  [52]  predicted 
smaller  velocities. 

From  the  above  comparisons  one  observes  that  with 
different  numerical  approaches,  initial  conditions  and 
computational  domain  the  solution  to  the  same  problem  may  be 
different  although  all  solutions  are  qualitatively  similar. 
The  FANS-3DEF  program  shows  here  that  it  is  capable  of 
solving  the  complete  laminar  flow  past  a  finite  flat  plate 
from  the  upstream  of  the  plate  to  the  wake  region. 

4.3  Laminar  Flow  With  Angle  Of  Attack 

Although  the  solutions  for  the  flow  past  a  flat  plate 
without  angle  of  attack  are  available  the  solution  for  the 
flow  with  an  angle  of  attack  is  scarce  if  not  available. 

This  is  primarily  because  when  there  is  an  angle  of  attack 
the  flow  may  be  separated  and  shedded  and  the  problem 
becomes  unsteady  and  is  governed  by  the  Navier-Stokes 
equations  and  not  the  parobolized  equation  or  boundary  layer 
equation.  In  the  present  study  since  the  FANS-3DEF  solves 
the  Navier-Stokes  equation  the  flov/  over  a  flat  plate  with 
angle  of  attack  may  be  solved.  Since  the  symmetric 
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condition  is  no  longer  applied  for  laminar  flow  over  a  flat 
plate  with  an  angle  of  attack  the  computational  domain  are 
redefined  with  extended  boundaries  both  in  the  x  and  y 
directions  as  shown  in  figure  15.  The  same  numerical  grid 
generation  technique  used  in  the  previous  section  was  again 
employed  but  with  Al=0.3,  A2=0.2,  A3=0.2  and  e^=19  at  x=0, 
£2=49  at  x=l,  11=1  at  y=0  and  n=19  at  y=+1.5  for  both  upper 
and  lower  domains.  Thus,  a  67x37  mesh  was  used  to  cover  the 
physical  region  that  extends  from  a  distance  1.385L  upstream 
of  the  leading  edge  to  8.762L  downstream  of  the  trailing 
edge,  and  1.5L  normal  to  the  plate  on  both  upper  and  lower 
boundaries . 

In  this  study  the  regular  grid  system  v/ith 

Navier-Stokes  equations  are  solved  again  by  the  FANS-3DEF 

for  two  different  angles  of  attack,  namely  a=  5  and  10  at 

4 

Reynolds  number  Re=10  .  The  inclined  uniform  velocities  u, 

V  (u=UQCOs(a),  v=Uq  sin(a))  and  zero  pressure  were  specified 
at  upstream  and  both  upper  and  lower  free  stream  boundaries. 
Since  the  outlet  plane  is  located  at  7.762L  downstream  of 
the  trailing  edge  which  is  far  downstream  from  the  plate, 
the  second  derivatives  of  all  the  variables  at  this  plane 
are  approximately  set  equal  to  zero.  The  problem  then  is 
solved  on  the  FANS-3DEF  program  with  the  time  marching 
procedure,  since  the  separation  and  unsteady  flow  phenomena 
is  expected  for  the  flow  at  incidence,  a  smaller  time 
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increment  At=0.1  is  used  here.  The  initial  guess  of  the 
velocities  in  the  whole  computational  domain  are  the 
uniformly  inclined  velocity.  A  total  of  30  time  steps  were 
calculated.  Calculation  for  each  time  step  approximately 
consumes  60  seconds  CPU  time  on  PRIME  750. 

4.3.1  5  Degree  Angle  Of  Attack 

Figure  16(a)  shows  the  instantaneous  streamline 
distribution  around  the  flat  plate  at  5  degree  angle  of 
attack  at  time  t=3  after  the  calculation.  At  this  instance 
a  small  separation  at  the  leading  edt  on  the  upside  plate 
can  be  seen  in  figure  16(b),  where  the  y  coordinate  normal 
to  the  plate  is  greatly  stretched  in  order  to  visualize  the 
separation  zone.  It  should  be  remarked  that  the  flow  at  a  5 
degree  angle  of  attack  does  not  show  shedding.  In  other 
words  the  separation  at  the  leading  edge  is  a  stationary 
separation  zone.  Werle  [53]  experimentally  showed  the 
existence  of  the  stationary  separation  at  a  small  angle  of 
attack  and  the  shedding  of  separation  flow  at  a  large  angle 
of  attack.  Figure  17(a)  shows  the  experimental  study  of 
v;erle  [53]  who  used  a  very  thin  flat  plate  (t=0.02L)  at 
Reynolds  number  10  for  2.5  degree  angle  of  attack.  In  this 
figure  a  much  larger  separation  zone  iihan  that  predicted  by 
the  present  study  for  a=5  was  seen  at  the  leading  edge  over 
the  upper  surface  of  the  plate.  It  should  be  kept  in  mind 
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that  in  the  present  study  a  zero  thickness  is  assumed  while 
in  the  expermental  study  a  two  percent  thickness  of  flat 
plate  with  sharpened  leading  edge  is  used.  The  sharpened 
edge  tends  to  promote  separation  and  make  the  separation 
zone  bigger. 

Figure  18  shows  the  convergence  history  of  the  pressure 
distribution  on  both  the  upside  and  downside  of  the  plate  at 
a  5  degree  angle  of  attack.  Since  at  this  angle  of  attack 
the  separation  zone  is  still  small  and  no  shedding  phenomena 
is  seen  the  pressure  distribution  is  stationary  on  both 
sides  of  the  plate.  The  solution  converges  on  the  downside 
of  the  plate  in  10  time  steps  and  on  the  upside  of  the  plate 
in  15  time  steps.  The  pressue  value  on  the  windward  or 
downside  of  the  plate  is  positive  while  it  is  negative  on 
the  leeward  or  upperside  of  the  plate.  The  maximum  and 
minimum  pressure  distribution  occurs  at  the  leading  edge  of 
the  plate.  The  maximum  of  p=0.48  on  the  wi.ndward  and  the 
minimum  of  p=-0.74  on  the  leeward.  The  absolute  value  of 
pressure  on  both  sides  continues  to  decrease  from  the 
leading  edge  to  the  trailing  edge  where  the  same  pressure 
value  p=-0.02  is  found.  No  experimental  data  of  pressure 
for  the  flow  past  a  very  thin  flat  plate  at  angle  of  attack 
is  available.  Figure  19  (54)  shows  the  pressure 
distribution  on  the  NACA  0012  airfoil  at  4  degree  of  angle 
attack.  NACA  0012  airfoil  is  a  symmetric  airfoil  but  has  a 


Figure  16.  Streamline  Distribution  At  Re=10  With  5  Degree  Angle  Of  Attack 


(a)  A  Flat  Plate  (2  Per  Cent  Thick) At  Ke=10 
With  2.5  Degree  Angle  Of  Attack 


(b)  A  Flat  Plate (2  Per 
Cent  Thickl 
At  ReslO** 

With  20  Degree  Angi 
Of  Attack 


Figure  17.  The  Visualisation  of  an 
Inclined  Fiat  Plate  at  Different  Angle 
of  Attack 
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maximum  thickness  of  12  percent  of  the  cord.  Comparing  the 
predicted  result  and  experiment  data  of  NACA  0012  airfoil, 
one  sees  that  the  present  analysis  predicted  a  similar 
solution  for  pressure  distribution  on  both  sides  of  the  flat 
plate  to  that  on  the  NACA  0012  airfoil. 

4.3.2  10  Degree  Angle  Of  Attack 

In  order  to  investigate  the  flow  past  a  flat  plate  with 
a  larger  angle  of  attack  so  that  the  flow  is  shedded  from 
the  separation,  the  angle  of  attack  is  increased  from  5  to 
10  degree.  At  this  angle  of  attack  the  same  computational 
domain,  grid  space,  time  increatment  and  initial  and 
boundary  conditions  used  in  the  previous  section  for  5 
degree  angle  of  attack  are  adopted  here.  Figures  20  and  21 
show  a  series  of  changes  of  streamline  distribution  and 
velocity  vectors  around  the  flat  plate  from  time  t=2  to  t=6. 
The  dimensionless  t  is  defined  by  t=TUQ/L.  Where  T  is  the 
dimensional  time,  Uq,  the  free  stream  velocity  and  L  the 
length  of  the  plate.  From  figure  20(a)  and  21(a)  one  sees 
that  at  time  t=2  a  large  separation  bubble  which  covers  0.8L 
of  the  upper  surface  is  formed.  From  t=3  to  t=5  these 
figures  reveal  that  while  the  separation  bubble  is  being 
pushed  down  toward  the  trailing  edge  of  the  plate  a  new 
separation  bubble  is  created  at  the  leading  edge  and  grows 
in  size.  At  time  t=6  the  first  separation  bubble  is 
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Figure  18.  Convergence  History  Of  The  Pressure  Distribution 
On  Both  Upper  And  Lov/er  Side  Of  The  Plate 
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Figure  21.  Continued 
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completely  washed  away  behind  the  plate  and  the  second  new 
separation  bubble  has  grown  to  a  size  such  that  the  pressure 
in  front  of  the  bubble  is  larger  than  that  behind  and 
consequently  the  bubble  begins  to  move  and  the  shedding 
process  repeats.  A  complete  period  is  then  achieved.  The 
shedding  Strouhal  number,  S,  from  this  shedding  is  found  to 
approximately  0.2.  The  Strouhal  number  is  defined  as  S=nL/UQ 
where  n  is  frequency,  Uq  and  L  are  reference  velocity  and 
length. 

In  this  chapter  the  calculation  of  flow  past  a  flat 
plate  is  used  to  test  the  capability  of  the  FANS-3DEF 
numerical  algorithm  and  numerical  method.  It  is  found  that 
the  FANS-3DEF  can  predict  laminar  flow  with  or  without  angle 
of  attack  with  reasonable  accuracy.  If  a  more  accurate 
result  of  the  flow  phenomena  is  desired  more  fine  grids  and 
smaller  time  step  should  be  used. 

Figure  22  shows  the  corresponding  pressure  distribution 
on  the  both  upper  and  lower  sides  of  the  plate  at  different 
times.  One  sees  that  the  pressure  distribution  on  the 
downside  of  the  plate  is  almost  constant  at  each  different 
time  step  but  the  pressure  on  the  upside  of  the  plate  varies 
rapidly  even  at  two  close  time  steps  revealing  the  occurence 
of  vortex  shedding.  In  table  7  the  value  of  pressure  on 
each  different  station  at  different  time  step  is  shown.  It 
shows  that  the  pressure  in  front  of  the  separation  zone  is 


Figure  2^.  Pressure  Distribution  At  Different  Time  Step 
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large  and  only  next  to  the  pressure  at  the  leading  edge. 

The  pressure  difference  created  arround  the  separation  zone 
is  then  responsible  for  moving  the  separation  zone 
downstream  and  producing  shedding.  The  feed  back  of  shedding 
phenomena  on  the  upper  plate  also  promotes  the  change  of 
maximum  and  minimum  values  on  the  leading  edge  at  different 
time  steps. 


4.4  Modelling  Of  Laminar- 
Turbulent  Transition 

Before  using  the  numerical  method  to  solve  a  complete 
solution  of  high  Reynolds  number  flow  over  a  finite  flat 
plate,  a  brief  review  of  how  the  flow  changes  from  the 
laminar  to  turbulent  is  needed.  Figure  23(a)  is  a  sketch  of 
flow  evolution  from  the  leading  edge  of  a  flat  plate  at  zero 
angle  of  incidence.  It  shows  that  between  laminar  and 
turbulent  flow,  there  exists  a  small  region  called  the  the 
transition  zone.  Figure  23(b)  shows  the  corresponding 
coefficient  of  skin  friction  around  the  transition  zone*  It 
can  be  seen  that  in  the  transition  zone  there  is  a  sud..«n 
increase  of  skin  friction  and  increase  in  the  boundary  layer 
thickness  from  laminar  flow  to  turbulent  flow.  At  present 
only  a  small  and  initial  portion  of  the  transition  zone  is 
amenable  to  a  theoretical  analysis.  The  analysis  and 
theoretical  treatment  of  the  complete  transition  flow  are 
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still  unavailable.  Numerically  Cebeci  and  Smith  (55)  and 
Granville  [56]  had  proposed  some  correlation  functions  for 
predicting  transition  flow  but  they  are  all  based  on  the 
boundary  layer  assumption.  Since  there  exists  this  kind  of 
difficulty  and  inability  in  predicting  the  transition  zone, 
then  many  previous  numerical  studies  [19,20,221  for 
turbulent  flow  past  a  plate  or  bodies  were  made  only  for  the 
region  where  the  flow  is  turbulent.  In  the  present  study  an 
attempt  is  made  to  create  a  simple  numerical  model  for 
predicting  the  transition. 

In  devising  a  numerical  model  for  the  transition  zone 
the  question  is  how  the  numerical  treatment  can  be  done  to 
connect  the  laminar  flow  and  turbulent  flow  so  that  the 
location  of  transition  can  be  approximate!  predicted  and  the 
overall  behavior  of  the  skin  friction  C^(2‘t^/pUo  * )  on  the 
plate  can  also  be  predicted.  In  other  words  since  the 
actual  length  of  the  transition  zone  is  not  clearly  defined 
no  attempt  is  made  to  numerically  predict  the  transition 
length.  As  mentioned  in  section  2.3,  once  the  flow  becomes 
turbulent  we  shall,  instead  of  applying  no-slip  conditions 
on  the  surface,  use  the  two-node  log- law  equation  to 
approximate  the  near  wall  solution  up  ,  the  first  node  from 
the  wall.  While  in  the  laminar  flow  the  computational 
domain  is  numerically  extended  to  the  wall.  The  numerical 
model  for  transition  then  requires  a  criteria  to  indicate 
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(a)  Idealized  Sketch  Of  Transition  Zone  In  The 

Boundary  Layer  On  A  Flat  Plate  At  Zero  Incidence 


(b)  Skin  Coefficient  For  Smooth  Flat  Plate  At 
Zero  Incidence 


Figure  23.  Transition  On  A  Flat  Plate  At  Zero  Incidence 
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when  the  flow  is  turbulent  so  that  turbulent  wall  function 
is  used.  The  following  is  the  process  to  identify  the 
location  when  the  flow  chang  from  laminar  to  turbulent. 

As  shown  in  figure  24(a)  the  flow  over  a  surface  which 
can  be  a  flat  plate  or  a  curved  surface  without  an  abrupt 
change  in  the  curvatures  is  considered.  When  the  local 
Reynolds  number  is  sufficiently  large  on  the  surface  the 
flow  may  go  through  transition  from  laminar  to  turbulent  in 
the  flow  domain  between  Xq  and  Here  let's  assume  the 

transition  from  laminar  motion  to  turbulent  motion  occures 
at  two  close  computational  nodes  denoted  by  Xj^  and  and 
the  tangential  velocities  at  these  two  locations  are  u^^  and 
u^.  The  subscript  1  means  the  laminar  flow  while  the 
subscript  t  means  the  turbulent  flow.  In  reality  the 
transition  will  normally  take  a  larger  distance,  before  the 
laminar  motion  becomes  a  completely  three  dimensional/ 
irregular  unsteady  and  rotational  flow  of  turbulent  motion. 

A  more  realistic  model  of  transition  will  be  discussed 
later.  Before  we  continue,  some  assumptions  about  the  flow 
around  the  transition  zone  are  made  as  (1)  the  velocity  near 
the  wall  along  the  surface  continues  to  decrease  v/hether  the 
flow  is  laminar  or  turbulent  (2)  the  flow  starts  with 
laminar  flow  at  the  leading  edge  and  continues  to  be  laminar 
until  the  point  of  turbulent  flow  is  defined  (3)  after  this 
point  the  fully  turbulent  flow  is  considered.  Under  these 
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assumptions  a  comparison  between  the  two  close  tangential 

velocities  at  same  normal  distance  y  to  the  wall  is  made. 

P 

Since  in  this  study  the  log-law  formulation  is  usev^  for  the 
turbulent  calculation,  therefore  y  must  the  value  between 
12  and  200.  In  this  study  we  choose  y  **  0.0006  and  find  that 

g 

it  satisfies  the  requirement  for  Re=2. 48x10  on  the  whole 

plate.  As  shown  in  figure  24(b)  if  larger  than 

Ut(X3,yp)  then  the  turbulent  velocity  at  (x^^yp)  is  replaced 

by  the  laminar  velocity  and  the  comparison  moves  downstream 

by  one  node,  or  between  'ij^(X2/yp)  and  'it(^4/yp)* 

Uj^(X2,yp)  is  less  than  u^(X3,yp)  then  the  turbulent  is 

assumed  to  occure  at  (x~,y  )  and  the  comparison  moves 

4  P 

upstream  by  one  node,  or  between  ^^C^l^yp)  ^nd  ' 

Repeat  the  same  process  until  less  than 

Ut(x3,yp)  and  Iqss  than  nj^(x^,yp)  then  the 

location  (x_,y  )  is  the  starting  point  of  transition. 

Z  p 

As  mentioned  before,  in  reality  the  transition  occurs 
in  a  larger  spacing  than  between  two  computational  nodes. 

To  remedy  the  drastic  transition  of  the  solution  from  a 
laminar  to  turbulent  flow  in  the  present  study  the  solution 
in  the  laminar  region  from  the  leading  edge  to  the  location 
of  the  transition  is  not  solved  by  the  laminar  Navier-Stokes 
equations  but  by  turbulent  Navier-Stokes  equation  with  a 
reduced  eddy  viscosity.  The  reduced  eddy  viscosity  at  a 
given  location  or  node  in  this  region  is  set  equal  to  a  80% 
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of  the  eddy  viscosity  of  the  downstream  node.  In  other  words 
the  value  of  the  eddy  viscosity  from  the  starting  point  of 
turbulent  flow  to  the  leading  edge  is  set  equal  to  80%  of 
the  downstream  value  or  '’t^^t'^p^' 

Vt(Xt_2/yp)=0-8  ''t^^t-l'^p^  etc.,  where  is  the  location 
of  transition  to  turbulent  flow. 

4.5  Turbulent  Flow  Without  Angle  Of 
Attack 

The  grid  distribution  for  the  calculations  of  the 
turbulent  flow  over  the  flat  plate  without  angle  of  attack 
was  again  generated  by  the  body- fitted  coordinate 
transformation  given  in  the  previous  section  but  with 
Al=0.3,  A2=0.12,  A3=0.25,  and  C=1  at  x=-1.0619,  5=19  at  x^O, 
5=55  at  x=l,  5=82  at  x=8.1406,  ii=l  at  y=0  and  n=15  at  y-1.0. 
The  grid  distribution  for  turbulent  flow  calculation  in  the 
y  direction  is  different  from  that  for  laminar  flow 
calculation.  This  is  because  the  turbulent  flow  near  the 
plate  differs  from  the  laminar  flow  and  the  implimentation 
of  the  wall  function  for  the  numerical  calculation  requires 
that  the  first  two  nodes  from  the  wall  must  be  within  12 < 
<200.  Thus  a  total  of  82x15  grid  nodes  is  used  for  solving 
high  Reynolds  number  flow  over  the  flat  plate  without  angle 
of  attack.  A  partial  view  of  grid  distribution  is  shown  in 
figure  25.  Ramaprian,  Patel  and  Sastry  (57]  measured  the 
turbulent  flow  over  a  streamline  body  at  Reynolds  number 
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Re=2. 48x10^.  In  order  to  compare  the  present  calculation 
with  the  above  experiment  data,  the  Reynolds  number 
Re=2. 48x10^  is  chosen  in  this  study.  The  same  boundary 
conditions  as  described  in  the  laminar  flow  calculation  in 
the  previous  section,  section  5.2,  are  used  here  again.  The 
FANS-3DEF  program  with  one- scale  k-e  turbulence  model  on  the 
staggered  grid  system  was  solved  by  using  time  step  At=l. 

The  total  marching  steps  are  iOO. 

Figure  26  shows  the  convergence  history  of  the  wall 
skin  coefficient  Cj(2t^/£>Uo  * )  on  the  plate.  It  can  be  seen 
that  after  30  time  steps  the  wall  skin  coefficient  hardly 
changes  any  more.  A  jump  from  C^=0.0012  to  C^=0. 00455  occurs 
around  x/L=0.108  which  is  equal  to  a  local  Reynolds  number 

5 

about  2.6x10  .  In  other  words  the  transition  was  predicted 
to  take  place  at  x/L=0.108  or  Rex=2.6xl0^  while  H. 

Schlitting  (58]  had  predicted  it  was  5x10^  in  his 
theoretical  study.  This  indicates  that  the  proposed  model 
for  numerical  prediction  of  transition  from  laminar  to 
turbulent  motion  is  applicable  to  the  flow  over  the  flat 
plate.  The  convergence  history  of  centerline  velocity  along 
the  wake  is  shown  in  figure  27. 

A  comparison  with  the  experimental  data  published  by 
Ramparian,  Patel  and  Sastry  ( 57 ) ,  shows  that  the  present 
result  has  a  slower  velocity  recovery  in  the  wake 
centerline.  The  convergence  history  of  the  dimensionless 


Figure  25.  Partial  View  of  Grid 
Distributuion  with  15  Nodes  in  Y 
Direction 
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Figure  27,  Convergence  History  of 
Centerline  Velocity  in  the  Wake 
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pressure  distribution  for  the  entire  region  including 
upstream  of  the  plate  and  wake  region  is  shown  in  figure  28. 

A  small  rise  of  pressure  or  p=0. 00165  is  predicted  at  the 
leading  edge.  A  better  result  of  pressure  distribution  at 
the  leading  edge  can  be  obtained  by  increasing  the  grid 
nodes  near  the  plate.  The  slight  underprediction  of 
centerline  velocity  in  the  wakes  region  may  be  due  to  the 
use  of  two-node  wall  function  on  the  wall  and  coarse  grids. 

To  improve  the  prediction  more  grids  are  needed  especially 
at  the  centerline  both  before  the  plate  and  after  the  plate. 
In  order  to  achieve  a  dense  grid  distribution  at  the  region 
very  close  to  the  wall  the  concentration  factor  A3  is 
changed  from  0.25  to  0.2835  and  a  total  of  19  grid  nodes 
along  the  y  direction  are  used.  The  partial  view  of  the  new 
grid  distribution  is  shown  in  figure  29.  The  computation  of 
the  flow  is  repeated  on  the  FANS-3DEF  program. 

Comparing  the  grid  distribution  between  15  grid  nodes 
and  19  grid  nodes,  one  finds  that  the  four  additive  grid 
nodes  are  created  inside  the  original  first  node  of  15  grid 
nodes  distribution.  In  other  words,  the  first  node  near  the 
wall  in  15  grid  nodes  distribution  becomes  the  fifth  node  in 
the  19  grid  nodes  distribution.  Since  the  log-law  wall 
function  is  still  used  for  the  turbulent  flow  calculation 
and  must  be  applied  between  12<  y^  <200,  the  computational 
domain  for.  the  19  grid  nodes  is  rearranged  as  shown  in  the 
following  figure. 


Figure  28.  Convergence 
History  of  Pressure 
Distribution 
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The  velocity  component  u,  kinetic  energy  k  and  its 
dissipation  rate  c  inside  the  fifth  node  which  involving  the 
use  the  wall  function  are  evaluated  based  on  the  log- law 
formulation  or 


Here  Y  means  the  normal  distance  at  the  nth  node,  so  that 
n 

Yg  is  the  normal  distance  at  the  fifth  node. 

Figure  31  shows  the  convergence  history  of  the 
dimensionless  pressure  distribution  before  the  plate,  on  the 
plate  and  along  the  wake  centerline.  One  sees  that  the 
pressure  distribution  at  the  leading  edge  is  now  p=0.055  in 
the  19  nodes  grid  distribution,  while  it  is  only  0.00165 
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when  15  nodes  were  used  in  the  computation.  Also  a  much 
smooth  pressure  distribution  is  obtained  in  figure  31  when 
compared  to  that  in  figure  29.  Figure  32  gives  an 
exergarate  pressure  distribution  along  the  centerline  of  the 
plate.  It  shows  a  slight  fluctuation  close  to  the  leading 
edge.  This  is  perhaps  affected  by  the  velocity  change  from 
the  laminar  flow  to  the  turbulent  flow.  The  starting  point 
of  turbulent  is  predicted  at  x/L=0.067  or  local  Reynolds 
number  Rex=l. 68x10  as  shown  in  figure  33.  During  the 
transition  the  skin  friction  jumps  from  0.0015  to  0.0047. 
Examining  one  point  of  the  skin  friction  measured  by 
Ramaprine,  Patel  and  Sastry  [57]  around  the  trailing  edge, 
it  shows  a  little  difference  between  the  experimental  data 
and  the  present  result.  The  convergence  history  of 
centerline  velocity  along  the  wake  is  shown  in  figure  34. 
Again  it  is  compared  with  the  experimental  data  published  by 
Ramaprine,  Patel  and  Sastry  [57].  It  shows  that  the 
prediction  based  on  19  grid  nodes  along  the  y  direction  now 
gives  good  agreement  result  at  far  wake.  This  also  can  be 
checked  from  figure  35(a)  to  35(g)  at  different  cross 
section.  Figure  36(a)  to  36(f)  show  the  kinetic  energy 
profile  at  different  cross  section.  The  comparison  between 
the  experimental  data  and  the  predicted  result  shows  that 
the  distribution  profiles  are  very  similar  to  each  other. 
Slightly  lower  values  under  the  experimental  data  are 
predicted  by  the  present  result. 


Pressure  Distribution 
Centerline  Of  The  Plate 
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Figure  33.  Convergence  History  of 
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Figure  36.  Kinetic  Energy 
Profile  at  Different  Station 
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Figure  36.  Continued 
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From  the  above  predictions,  one  can  see  that  the 
numerical  model  of  transition  for  the  turbulent  flow  over 
the  flat  plate  without  angle  of  attack  is  able  to  predict  a 
good  result  when  compared  to  the  experimental  data. 

Therefore,  this  transition  model  is  used  for  the  flow  with 
angle  of  attack  in  the  next  section. 

4.6  Turbulent  Flow  With  Angle  Of  Attack 
In  this  section  the  turbulent  flow  past  a  finite  flat 
plate  with  two  angles  of  attack,  namely,  a=5  and  10  both  at 
Reynolds  number  Re=2. 48x10  are  solved.  Since  the  symmetric 
condition  is  no  longer  applied  for  this  case,  the 
computational  domain  needs  to  be  redefined  with  extended 
boundaries  in  the  y  direction  as  shown  in  figure  37.  The 
same  numerical  grid  generation  constants  Al,  A2  and  A3  used 
in  the  last  section  for  19  grid  nodes  are  used  here  again 
but  with  the  outer  boundary  in  the  y  direction  extended  to 
y=+3  at  11=21.  Thus  a  82x41  mesh  was  used  to  cover  the 
physical  region  that  extends  from  a  distance  1.0619L 
upstream  of  the  leading  edge  to  8.1406L  downstream  of  the 
trailing  edge  and  3L  distance  normal  to  the  plate  on  both 
upper  and  lower  boundaries.  The  same  boundary  conditions 
used  in  section  5.3  for  the  laminar  flow  with  angle  of 
attack  over  the  flat  plate  are  used  here  again.  The  same 
numerical  modeling  used  in  the  last  section  for  the 
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determination  of  transition  from  laminar  to  turbulent  flow 
is  used  for  the  present  calculation  on  both  upper  and  lower 
sides.  The  FANS-3DEF  program  with  time  step  At=0.1  and 
total  100  time  steps  for  both  5  and  10  degree  angles  of 
attack  are  solved. 

4.6.1  5  Degree  Angle  Of  Attack 

Figure  38  shows  the  streamline  distribution  around  the 
flat  plate  at  5  degree  angle  of  attack.  At  this  high 

g 

Reynolds  number  flow  Re=2. 48x10  no  separation  zone  at  the 

leading  edge  on  the  upper  side  of  the  plate  is  found.  It 

a. 

should  be  remarked  that  the  same  problem  at  Re=10‘  solved  in 
section  4.3.1,  shows  a  small  separation  zone  at  the  leading 
edge  on  the  upper  side  of  the  plate.  This  can  be  explained 
because  when  the  Reynolds  number  is  increased  at  this  small 
angle  of  attack  the  length  of  the  separation  zone  is 
decreased  until  it  disappears  completely. 

The  convergence  history  of  the  pressure  distribution  on 
both  the  upper  and  lower  sides  of  the  plate  is  shown  in 
figure  39.  It  shows  that  the  pressure  distribution  is 
monotonically  convergent  about  30  time  steps  on  the  lower 
side  and  40  time  steps  on  the  upper  side  of  the  plate.  The 
pressure  value  on  the  lower  side  of  the  plate  starts  from  a 
maximum  pressure  p=0.24  at  the  leading  edge  drops  to  p=-0.16 
at  the  trailing  edge,  v/hiie  the  pressure  value  on  the  upper 


Figure  37.  The  Numerical  Grid  For  Turbulent  Flow  With  Angle  Of  Attack 


Wliole  Plate 
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side  of  the  plate  starts  from  a  minimum  pressure  p=-0.198 
increases  to  p=0.0557  at  the  trailing  edge.  A  comparison  of 
the  pressure  distribution  given  in  figure  39  for  turbulent 

g 

flow  Re=2. 48x10  and  that  shown  in  figure  18  for  the  laminar 

4 

flow  Re=10  ,  shows  that  there  is  a  mark  difference  between 
these  two  flows  in  the  pressure  drop  at  the  trailing  edge.  A 
larger  pressure  difference  between  the  lower  side  and  upper 
side  is  observed  at  the  trailing  edge  of  the  plate  for 

g 

turbulent  flow  at  Re=2. 48x10  ,  or  p=0.0557  on  the  upper  side 
and  p=-0.16  on  the  lower  side,  while  it  is  almost  the  same 

4 

value  p=-0.02  for  the  laminar  flow  Re=10  .  The  difference 
in  turbulent  and  laminar  flows  can  also  be  seen  in  the 
streamline  distributions  given  in  figures  16  and  38.  Figure 

4 

16  for  laminar  flow  Re=10  shows  that  the  zero  streamline 
has  a  5  degree  angle  of  attack  to  the  plate  and  leaves  the 
plate  at  5  degree  too,  while  figure  40  for  turbulent  flow 
Re=2. 48x10  shows  that  the  zero  streamline  has  a  5  degree 
angle  of  attack  to  the  plate  and  leaves  the  plate  almost  at 
90  degrees  then  decreases  sharply  and  becomes  5  degrees 
agaJn  in  the  far  wake.  With  the  carefully  examination  there 
iz  a  small  separation  around  the  trailing  edge  at 

g 

Re=2. 48x10  with  a  5  degree  angle  of  attack.  Figure  40 
shows  the  convergence  history  of  the  skin  coefficient 
C^(2t^/pUo ^ ) ,  while  using  the  same  numerical  modeling  of  the 
transition  zone  for  both  the  upper  and  lower  sides  of  the 
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plate.  The  starting  point  of  turbulent  flow  is  predicted  at 
x/L=0.067  on  the  lower  side  of  the  plate  and  at  x/L=0.165  on 
the  upper  side  of  the  plate.  The  skin  coefficient  on  the 
lower  side  starts  a  sharp  drop  at  the  leading  edge  and  then 
jumps  from  0.00155  at  x/L=0.067  to  0.004341  at  x/L=0.108 
where  the  flow  becomes  fully  turbulent  and  gradually 
decreases  till  close  to  the  trailing  edge.  Then  there  is  a 
sudden  increase  in  at  the  trailing  edge  to  a  value 
0.004316.  The  skin  coefficient  on  the  upper  side  of  the 
plate  also  drops  sharply  from  the  leading  edge  to  0.001  at 
x/L=0.067  then  decreases  slowly  to  0.00922  at  x/L=0.165. 

From  x/L=0.238  where  the  flow  becomes  fully  turbulent  to  the 
trailing  edge  the  friction  coefficient  gradually 
decreases,  with  no  sudden  increase  around  the  trailing  edge 
is  found.  The  different  behavior  of  the  skin  coefficient  at 
the  trailing  edge  on  both  the  upper  and  lower  sides  of  the 
plate  can  also  be  explained  from  the  behavior  of  the 
streamline  patcern  shown  in  figure  38.  In  figure  38  one 
observed  that  the  upper  zero  streamline  is  almost  90  degrees 
when  it  leaves  the  upper  trailing  plate  into  the  wake  while 
the  zero  streamline  on  the  lower  side  converges  to  the 
trailing  edge  parallel  to  the  plate. 


Figure  40.  Convergence  History  of  Skin 
Coefficient  on  Both  Upper  and  Lower  Side 

of  Plate 


Figure  4l .  Streamline  Distribution  At  10  Degree  Angle  Of  Attack 


Figure  4 1 .  Continue 
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4.6.2  10  Degree  Angle  Of  Attack 

Figures  41  to  45  give  the  solution  of  a  10  degree  angle 

0 

of  attack  for  Re=2. 48x10  .  The  flow  patterns  shown  in  figure 
41  to  45  have  many  similarities  with  the  flow  patterns  for  5 
degree  angle  of  attack  shown  in  figures  37  to  40.  However 
there  are  some  differences.  The  following  are  some 
different  points  which  require  explanation.  At  this  high 
angle  of  attack  a=10  one  finds  that  a  very  small  separation 
exists  at  the  leading  edge,  also  a  strong  separation  around 
the  trailing  edge  on  the  upper  side  of  the  plate  is  found  as 
shown  in  figure  41.  Like  the  flow  with  a  5  degree  angle  of 
attack,  figure  42  shows  the  pressure  distribution  at  the 
trailing  edge  of  the  plate  has  a  large  pressure  difference 
between  the  upper  and  lower  sides  of  the  plate.  The 
pressure  distribution  on  both  the  upper  and  lower  sides  of 
the  plate  is  similar  to  that  of  the  5  degree  angle  of  attack 
except  that  the  magnitude  is  higher  for  the  10  degree  angle 
of  attack.  The  convergence  for  a  10  degree  angle  of  attack 
is  slower  as  shown  in  figure  43.  The  convergence  history  of 
the  skin  coefficient  given  in  figure  44,  shows  that  the 
solution  IS  convergent  after  80  time  steps.  Figure  45  also 
shows  a  sudden  decrease  of  skin  coefficient  at  x/L=0.68  in 
the  fully  turbulent  flow  on  the  upper  side  of  the  plate. 

This  sudden  decrease  may  correspond  to  the  strong  separation 
on  the  upper  side  of  the  plate  as  shown  in  figure  41. 


Figure  42.  Pressure 
Distribution  at  10  Degree  Angle 
of  .Attack 
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From  the  solutions  presented  in  the  last  section  and  in 
this  section,  one  may  conclude  that  the  proposed  criteria 
for  predicting  the  transition  provide  a  reasonable  and 
accurate  solution.  Also  the  FANS-3DEF  is  a  stable  program 
and  can  predict  good  results  for  the  case  of  zero  incidence 
and  reasonable  sol  tions  for  the  flows  with  angle  of  attack. 
This  application  is  further  extended  to  the  flow  over  an 
inclined  axi symmetric  body  in  chapter  6. 
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CHAPTER  V 

FLOW  PAST  AX I SYMMETRIC  BODY 
WITHOUT  ANGLE  OF  ATTACK 

In  the  last  chapter  the  FA  numerical  solution  for 
laminar  and  turbulent  flows  over  a  finite  flat  plate  with 
and  without  an  angle  of  attack  had  been  solved  by  the 
FANS-3DEF  program.  Therefore  the  FANS-3DEF  code  is  verified 
at  least  for  prediction  of  flows  past  a  finite  flat  plate  at 
varied  angles  of  attack  using  the  body-fitted  coordinate 
transformation  and  FA  method  in  solving  turbulent 
Navier-Stokes  equations  with  the  k-e  turbulence  model.  In 
this  chapter  the  turbulent  flows  past  more  complicated 
axisymmetric  bodies  for  which  detailed  experimental  data  are 
available  are  predicted  by  the  FANS-3DEF.  Two  bodies  were 
chosen  because  of  their  importance  in  ship  hydrodynamic 
study  and  availability  of  experimental  data.  The  first 
geometry  is  known  as  "Afterbody  1"  used  by  Huang  et  al .  [10] 
who  provide  detailed  measurements  of  velocity,  pressure  and 
turbulent  quantities  arround  the  rear  part  of  the  body.  The 
second  geometry  is  "F-57  body"  used  by  Lee  [9]  in  his  study 
of  turbulent  flow  past  the  body.  The  geometries  of  these 
two  bodies  are  shown  in  figure  46.  These  body  shapes  are 
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described  by  an  analytic  equation  and  detailed  measurements. 
In  this  chapter  the  k-e  turbulence  model  is  used  to  obtain 
the  numerical  results  and  a  comparison  is  made  with  the 
experimental  data. 


5.1  Numerical  Grid  System 
In  the  FANS-3DEF  program,  the  body  fitted  coordinate 
system  is  again  used  to  generate  the  grid  nodes  for 
axisymmetric  bodies.  To  minimize  the  possible  approximation 
error  in  the  pressure  equation  Eq.  (17)  as  described  in 
section  3.3,  the  staggered  grid  system  v;here  the  constant  ^ 
stations  is  a  sole  function  of  the  x  coordinate  or  ?  =  5(X) 
is  used  in  this  study.  Under  this  arrangement,  Eq.  (9)  can 
then  be  rewritten  in  the  cylindrical  polar  coordinates  as 


where 


’ll^^c 

+  (FIX^) 
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22  nn 
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n  n  ^ 

(24) 


The  control  function  FI  is  therefore  determined  by  the 
desired  distribution  of  the  axial  station  or 
Fl=- (a^,x^^ )/( J^x^ ) .  With  FI  specified,  equation  (24) 
yields  the  distribution  of  points  in  the  radial  direction, 
r(^,ii).  To  obtain  the  desired  grid  distribution  in  the  r 
direction,  the  control  function  F2  must  be  prescribed.  If 
the  control  fu.nction  F2  is  set  equal  to 


(a)  Afterbody  1 


U  "=  "1"  29"'m 


(b)  F-57  Body 


Figure  46.  The  Geomery  of 
Axisymmetric  Bodies 
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which  is  equivalent  to  the  two-dimensional  body  fitted 
coordinates  for  the  Cartesian  coordinates  (x,y)  as  given  in 
Eq.  (22)  with  the  control  functions  FI  and  f2 .  In  other 
words,  the  same  grid  distribution  can  be  generated  in  both 
the  cylindrical  and  Cartesian  coordinates  if  the  control 
function  F2  is  replaced  by  f2  in  the  cylindrical 
formulation. 


In  this  chapter  the  FANS-3DEF  progrm  is  used  to  solve 
the  flow  over  a  more  complicated  axisymmetric  body  with  the 
k-E  turbulence  model.  Since  the  experimental  measurements 
of  Huang  et  al.  [10]  on  "Afterbody  1"  and  Lee  (9)  on  the 
"F-57  body"  provide  data  only  at  the  rear  part  of  body  to 
the  wake,  the  computational  domain  is  chosen  from  the  half 
part  of  the  body  to  the  far  wake.  As  the  body  shape  and 
computational  domain  are  different  from  the  flat  plate 
problem  the  distribution  of  control  factor  a  (  a  =  - 
( J^F^)/(2a^^)  )  as  shown  in  Eq.  (23)  for  generation  of  the 
grid  nodes  along  the  ?  direction  is  chosen  as 


'-A1 

j  Al  Sin  (ttz^) 
A2  Sin(TTZj^) 
^  -A2 


0.25  <  <.  0.5 

0. 5  <  4.  1 

1  4:  b 


(25) 
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^2  corresponds  to  the  trailing  edge,  the  constant  b  (>1)  is 
the  grid  number  to  be  affected  by  the  concentration  at  the 
near  wake  region  and  A1  and  A2  are  positive  constants  for 
conden-sing  the  grid  nodes  to  the  trailing  edge.  For 
"Afterbody  1"  Al=0.05,  A2=0.2,  b=1.2  and  x=1.0  are 

used.  For  "F-57  body"  Al=0.01,  A2=0.2,  b=l.l  and  ^2=^0  at 
x=1.0  are  used.  Here  the  grid  nodes  along  the  body  near  the 
trailing  edge  and  in  the  near  wake  region  are  assigned.  To 
concentrate  the  grid  nodes  at  the  inlet  plane,  the  same 
concentration  values  obtained  around  the  trailing  edge  are 
used  and  assigned  them  to  the  nodes  at  the  inlet  plane.  In 
this  study  it  is  set  as: 

a{I)  =  -a(N2+I-5)  1  <  I  $  5 

a(I)  =  -a(lO-I)  6  .<  I  $  9 

where  the  number  shown  in  the  bracket  is  the  grid  number 
along  the  ^  direction,  1=1  is  inlet  plane  and  N2=40  is  the 
trailing  edge  of  the  body.  In  this  study  f2  is  also  defined 
as  fFa(n)  C  <  ^ 

ci 

f2(5'n)  =-  Fc(5,n)  <  C  < 

^Fb(n)  C  >  Cb 
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where  Fa  and  Fb  are  given  by  the  user  or  deterimed  by  the 
node  distribution  at  the  initial,  ^=1,  and  final  stations, 
^=n,  as 


Fa 


Fb 


22  nn 


5=1 


a 


22^nn 

jFr 

n 


5=n 


and  Fc  is  obtained  by  a  linear  combination  of  Fa  and  Fb  or 

Fc(?,n)  =  1  (?j^-C)Fa(n)  +  (C-?^)Fj^{n)  I  / 

In  this  study  ^  =15,  =42,  Fa=0.2  and  Fb=0,15  are  given  for 

a  jD 

the  prediction  of  flows  past  the  two  bodies. 

5.2  Afterbody  1 

As  shown  in  figure  46(a)  the  total  length  of  the 
Afterbody  1,  L,  is  3.066m  and  the  maximum  diameter  of  the 
parallel  middle  body  is  27.94cm.  The  experimental 
investigation  was  conducted  by  Huang  et  al.  (10)  in  the  wind 
tunnel  of  the  DTNSRDC  anechoic  flow  facility.  The  common 
forebody  and  a  portion  of  the  parallel  middle  body  were 
constructed  with  wood.  The  afterbody  and  the  remaining 
portions  of  the  parallel  middle  body  were  constructed  with 
molded  fiberglass.  The  wind  tunnel  was  a  2.44m  by  2.44m 
closed  jet  test  section,  followed  by  a  7.16m  by  7.16m  open 


150 


jet  test  section.  In  this  experiment  the  velocity  of  the 
wind  tunnel  was  held  constant  at  30.48  m/sec  therefore  the 
Reynolds  number  based  on  the  maximum  diameter  or  Re=6.6xl0 
was  obtained. 

Since  in  this  experiment  the  velocity  profile  and 
turbulent  shear  stress  are  measured  from  x/L=0.706  to 
x/L=1.182  (in  the  open  jet  test  section),  where  x  is 
measured  along  the  axis  of  the  body  from  the  body  nose  and  L 
is  the  body  length,  the  prediction  of  flow  was  made  for  the 
latter  half  of  the  body.  The  calculations  for  Afterbody  1 
were  performed  with  56  stations  in  the  domain 
0.364<x/L<6.58.  A  partial  view  of  the  body-fitted 
coordinates  is  shown  in  figure  47.  19  grid  nodes  were  used 

between  the  body  surface  and  the  external  boundary  which 
varies  from  r/L=0.68  to  0.72.  Here  r  is  the  radial  distance 
from  the  body  axis.  The  use  of  coordinate-stretching 
functions  FI  in  the  longitudinal  direction  and  F2  in  the 
radial  direction  ensure  that  the  grid  points  are  closely 
spaced  inside  the  region  of  large  velocity  gradient  and  near 
the  stern. 

The  numerical  calculation  is  confined  to  the  domain 
from  x=0.364L  at  the  middle  part  of  the  body  to  the  wake 
region  x=6.58L.  Since  the  FANS-3DEF  program  solves  elliptic 
partial  differential  equations  Eq.  (12)  the  boundary 
conditions  at  the  boundary  of  the  computational  domain  must 


Figure  47.  The  Partial  View  of 
Numerical  Grid  for  Afterbody  1 


152 


be  given.  Afterbody  1  as  shown  in  figure  46  (a)  has  a  long 
section  of  middle  body  (from  x/L=1.64  to  x/L=0.6064)  which 
is  a  slender  circular  cylinder  with  constant  radius 
r/L=0.0456,  therefore  it  seems  reasonable  to  assume  constant 
ambient  pressure,  i.e.  p=0  as  the  pressure  profile  at  the 
upstream  boundary  condition  at  x/L=0.364  and  use  one- seventh 
power  formulation  for  turbulent  velocity.  The  turbulent 
profiles  for  k  and  at  this  upstream  condition  (x=0.364L) 
are  specified  too. 

u(y)  =  (y/5).  >**3  for  y  <  5 

for  y  >  6 

k=.002 (l-y/5) 

(/^k)  ‘  •  s 

^  Ky  '  K=.42 

Here  6  is  the  dimensionless  boundary  layer  thickness  and  is 
assumed  as  0.004  in  this  study. 

The  FANS-3DEF  program  with  the  k-e  turbulence  model  was 
solved  with  t=l.  The  total  marching  steps  are  40.  Figure 
48  shows  the  convergence  history  of  the  dimensionless 
pressure  field,  defined  by 
surface  and  along  the  wake  centerline. 

It  is  seen  that  the  solution  converges  monotonically  and  the 
converged  solution  is  obtained  after  10  time  steps.  The 


Figure  48.  Convergence  History  of 
Pressure  Distribution  on  Afterbody  1 
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The  typical  computational  time  for  each  time  step  on  the 
PRIME  750  is  16  cpu  seconds.  Since  Afterbody  1  has  a  long 
section  of  constant  radius  (from  x/L=0.164  to  x/L=0.6064) 
before  a  gradual  reduction  of  radius  from  r/L=0.0456  to  zero 
radius  at  the  trailing  edge,  the  pressure  begins  to  change 
from  the  location  x/L=0.6064  and  the  behavior  like  the  flow 
over  the  trailing  edge  of  the  flat  plate.  As  the  radius  of 
"Afterbody  1"  along  the  axis  decreases  gradually  from 
r/L=0.0456  at  x/L=0.6064  to  zero  at  x/L=l,  the  pressure  is 
gradually  increased  due  to  the  deceleration  of  the  flow. 

Then  the  pressure  along  the  center  line  of  the  wake  has  to 
recover  the  ambient  pressure  in  the  far  wake.  The  predicted 
solution  for  pressure  in  figure  48  is  in  fairly  good 
agreement  with  the  data  of  Huang  et  al.  [10).  In  the  wake 
the  pressure  along  the  wake  centerline  (x/L>1.0)  decays 
somewhat  faster  than  the  experimental  data  in  the  near  wake 
and  becomes  slightly  negative  before  gradually  recovering  to 
the  zero  ambient  pressure  in  the  far  wake.  The  detailed 
pressure  variations  in  the  radial  direction  is  shown  in 
figure  49,  with  the  pressure  as  a  function  of  the  normal 
distance  from  surface  (r-r^),  where  r^  is  the  local  radius 
of  the  body. 

Here  again  the  agreement  with  the  available 
experimental  data  is  quite  good,  considering  the 
difficulties  in  measuring  pressure  in  such  an  enviroment.  It 
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Figure  49.  Pressure  Profile  at 
Different  Station  for  Afterbody  1 
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is  seen  that  zero  ambient  pressure  is  recovered  when  the 
radius  distance  is  beyond  r=0.35L  from  the  body  surface 
r=r^.  Here  rQ=0.0456L  between  x/L=0.164  to  0.6064  and 
rQ<0.0456  between  x/L=0.6064  to  1. 

Figures  50  and  51  show  the  detailed  comparisons  between 
calculated  and  experimental  profile  of  the  axial  velocity 
(u),  radial  velocity  (v)  and  kinetic  energy  k  at  different 
stations.  Here  u  and  v  are  dimensionless  x  and  r  velocity 
components  normalized  by  Uq  and  k  the  dimensionless  kinetic 
energy  normalized  by  Uq.  It  is  seen  that  the  boundary  layer 
thickness  and  half-width  of  the  wake  are  correctly 
predicted.  The  axial  (u)  and  radial  (v)  components  of 
velocity  in  the  rear  end  of  the  body  and  near  wake  region 
are  also  in  good  agreement  with  the  corresponding  data.  The 
predicted  turbulent  kinetic-energy  k  shown  in  figure  51 
gives  a  somewhat  larger  value  in  the  wall  region  near  the 
tail  (x/L>0.96),  where  the  boundary  layer  becomes  thick. 

The  larger  values  are  predicted  for  the  mean  velocity,  hence 
the  velocity  gradient  in  the  wall  region  of  the  thick 
boundary  layer  are  presumably  related  to  the  over-estimation 
of  the  eddy-viscosity  by  the  k-e  turbulence  model. 

Figure  52  shows  that  the  predicted  wall- shear  velocity 
U  or  (t  /p)  is  slightly  larger  than  the  data  especially 

t  u 

the  last  5  percent  of  the  body  length.  All  these  differences 
maybe  due  to  the  use  of  the  simple  wall  functions,  Eqs  (6) 


J 


Continue 


16?, 


and  {!),  at  the  tail  of  the  body  where  the  curvature  changes 
sharply.  In  the  future  investigation  the  simple  two-node 
log-law  wall  function  used  in  FANS-3DEF  may  require 
modification  in  order  to  provide  a  real  similation  of  flow 
over  a  surface  where  the  large  curvature  occurs. 

5.3  F-57  Body 

As  shown  in  figure  46  (b)  the  total  length,  L,  of  F-57 
body  is  1.219m  (4ft).  The  coordinates  of  this  body  are  given 
by 

For  0<x<x^  (fore-body) 

I* 

-~  =  (-1.1723a  +0. 7088a  +1. 0993a  +0.3642a)°*^  26(a) 

m 

For  x^<x<;L  (pointed  aft-body) 
r- 

—  =  (-0.11996b  -2.58278b  +3. 52544b  +0.1773b)°*^  26(b) 

m 

where  a=x/x  ,  b=L-x/L-x  ,  x  is  the  axial  distance  measured 
m  m 

from  the  nose,  r-  is  the  local  radius,  x  (=0.4446L)  is  the 

u  m 

axial  location  of  maximum  radius  r  (=0.117L),  and  L  is  the 

m 

total  length  of  the  body.  In  the  experiments  the  main  body 
of  the  model  was  made  of  seasoned  wood  but  metal  nose-  and 
tail-pieces,  5.08cm  and  12.70cm  in  length,  respectively, 
were  used  to  provide  accuracy  and  durability.  The 
experiments  were  performed  by  Lee  (9)  in  the  large  wind 
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tunnel  of  the  Iowa  Institute  of  Hydraulic  Research.  The 
working  section  of  the  tunnel  is  7.3m  long  with  a 
cross-section  in  the  form  of  a  1.5m  octagon  provided  by 
throating  a  3 . 7m  square  approach  section.  In  this 
experiment  the  velocity  of  wind  tunnel  was  held  constant  at 
15.24  m/s  (50  fps),  where  a  Reynolds  number  of  Re=l  2x10 
was  obtained.  The  model  was  mounted  in  the  wind  tunnel  by 
means  of  eight  0.84mm  diameter  steel  wires  in  tension  at 
x/L=0.475,  and  the  major  measurements  were  conducted  only 
from  x/L=0.601  to  x/L=2.472. 

Like  Afterbody  1,  the  staggered  grid  system  with  the 
k-£  model  is  used  in  the  FANS-3DEF  program  for  the 
calculations  of  flow  past  F-57  body.  There  are  56  stations 
in  the  axial  direction  between  0 . 364<x/L<6 . 580  and  19  grid 
points  between  the  body  surface  and  the  external  boundary 
r/L=1.35.  The  partial  viw  of  grid  distributions  is  shown  in 
figure  53.  The  same  coordinate-stretching  functions  and 
upsrream  condition  as  for  Afterbody  1  were  used  again  in 
this  case.  The  principal  results  of  the  calculations  for 
F-57  body  are  shown  in  figures  54  through  58. 

Figure  54  shows  the  convergence  history  of  the  pressure 
on  the  body  surface  and  along  the  centerline  of  the  wake. 
Unlike  the  Afterbody  1  the  F-57  body  does  not  have  a 
constant  radius  at  the  middle  part  of  the  body,  instead  the 
F-57  bor’y  continuously  increases  radius  from  the  leading 


Figure  53.  The  Partial  View  of 
Numerical  Grid  for  f-57  3ody 


Figure  54.  Convergence  History  of 
Pressure  Distributin  on  e-57  Body 
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Figure  58.  Convergence  History  Of  Wall-Shear 
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edge  with  Eq.  26(a)  to  the  maximum  radius  at  x/L=0.4446  then 
continuously  decreases  with  Eq.  26(b)  to  the  trailing  edge. 
Thus  the  minimum  pressure  occurs  at  the  location  where  the 
radius  is  maximum  ( r/L=0 . 117, x/L=0 . 4446) .  The  pressure 
smoothly  recovers  at  the  trailing  edge  and  drops  again  to 
the  ambient  pressure  in  the  wake  region.  The  converged 
solution  as  shown  in  figure  54  is  obtained  in  less  than  20 
time  steps  and  is  in  excellent  agreement  with  the 
experimental  data  except  at  the  tail  of  the  body  and  near 
wake  where  the  predicted  values  are  slightly  lower  than  the 
dat’  Before  a  comparison  is  made  between  the  calculated 
and  experimental  profile  in  the  radial  direction  at 
different  stations,  it  should  be  remarked  that  the  F-57 
experimental  data  were  measured  along  the  direction  normal 
to  the  body  surface  while  the  numerical  calculations  were 
solved  along  the  direction  normal  to  the  axis  of  the  body. 
Since  it  is  not  easy  to  transfer  results  in  either  way 
without  avoiding  any  error  and  since  the  curvature  of  body 
surface  does  not  change  sharply  except  at  the  region  very 
close  to  the  tail,  in  this  study  both  the  experimental  data 
and  numerical  solution  are  kept  in  their  orginal  directions. 
Figures  55,  56  and  57  show  the  detailed  comparisons  between 
the  calculated  and  experimental  profile  of  pressure,  axial 
velocity  (u),  radial  velocity  (v)  and  kinetic  energy  k  at 
each  different  station.  Overall  the  predictions  are  in  good 
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agreement  with  experimental  data  except  that  the  axial 
velocities  along  the  center  line  of  the  wake  are  higher. 

This  is  again  due  to  use  of  simple  wall  function  along  the 
body  surface,  and  simple  initial  condition  at  the  upstream 
station.  Unlike  Afterbody  1  the  surface  of  F-57  body 
continuously  changes  its  shape,  therefore  it  is  more 
difficult  in  specifying  the  initial  condition  for  the 
computational  domain.  In  che  next  chaprer  the  prediction  of 
flow  past  the  whole  axisymmetric  body  will  be  considered. 

In  this  situation  the  specification  of  the  initial  condition 
at  upstream  of  the  body  may  become  simple  and  accurate. 
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CHAPTER  VI 

FLOW  PAST  AX I SYMMETRIC  BODY 
WITH  ANGLES  OF  ATTACK 

In  this  chapter  the  FANS-3DEF  program  that  includes  all 
numerical  methods  described  before  is  used  to  predict  flow 
past  an  inclined  axisymmetric  body.  The  prediction  of 
turbulent  flow  past  an  axisymmetric  body  is  conducted  for 
the  whole  axisymmetric  body  including  (1)  the  approaching 
flow,  (2)  the  flow  past  the  body  from  the  leading  to 
trailing  edge  and  (3)  the  wake  region.  The  calculation  was 
first  made  for  the  flow  corresponding  to  the  experiments  of 
Yasuhara  [5).  The  experiment  was  conducted  on  a  20  mm 
diameter  brass  pipe  that  was  1750  mm  long  with  a  100  mm  long 
ogive-nose  as  shown  in  figure  59(a). 

This  model  was  placed  at  zero  degree  angle  of  attack  in 
a  wind  tunnel  that  has  a  velocity  range  from  about  8  m/s  to 
35  m/s.  The  ogive-nose  extends  100  mm  from  the  base  of  the 
cylinder.  The  brass  pipe  was  clamped  by  a  supporting  device 
at  the  rear  end  and  the  model  was  supported  by  a  cantilever 
beam.  The  pressure  distribution  was  measured  by  a  Pi to  tube 
with  0.2mm  x  1.0mm  hole.  For  wind  velocities  up  to  20.3  m/s 
or  Reynolds  number  based  on  the  length  of  cylinder. 
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Figure  59(a).  The  Geometry  Of  Ogive-Nose 

Cylinder  Used  In  The  Experiment 


Figure  59 (b) . 
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Therefore,  the  computational  domain  is  -1 . 02<x/L<8 . 146, 

0< ( r-rQ)/L<0 . 85  where  rQ  is  the  radius  of  cylinder  changes 
along  the  axis  of  the  cylinder  body.  A  nonuniform  grid, 
with  82  points  in  the  x  direction  and  19  points  in  the  r 
direction  was  used.  A  partial  view  of  the  grid  distribution 
is  shown  in  figure  60.  The  computation  was  done  by  marching 
in  time  with  a  time  step  At=0.1.  The  initial  guess  of 
uniform  velocity  and  zero  pressure  were  used.  The  total 
time  steps  of  100  were  used  when  a  steady  solution  was 
predicted. 

The  same  numerical  model  of  transition  used  for  the 
flat  plate  is  used  here  again.  Figure  61  shows  the 
convergence  history  of  the  skin  coefficient  on  the 
cylinder  body.  The  predicted  transition  is  near  x/L=0.06  or 
local  Reynolds  number  Re  =2.22x10^.  It  is  obvious  that  the 
numerical  modelling  of  transition  predicts  that  the 
transition  to  occur  at  x/L=0.06,  the  intersection  point  of 
the  ogive-nose  curve  and  the  straight  cylinder.  Physically 
the  flow  on  the  ogive-nose  cone  is  constantly  accelerated 
between  0<x/L<0.06  because  of  the  increase  in  body  radius 
from,  the  leading  edge  to  the  straight  cylinder.  Therefore 
the  u  velocity  inside  the  boundary  layer  was  predicted  to 
increase  until  the  flow  reaches  the  intersection  point  of 
the  ogive-nose  and  the  straight  cylinder.  The  velocity  on 
the  straight  cylinder  then  begins  to  decelerate  due  to  the 
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Figure  60.  The  Partial  View  Of  Numerical  Grid  (82x19) 
For  Flow  Past  A  Ogive-Nose  Cylinder 
Without  Angle  Of  Attack 
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disappearence  of  the  pressure  gradient  on  the  straight 
cylinder  and  the  constant  resistance  of  the  viscous  flow. 

The  prediction  of  transtion  based  on  the  criteria  discussed 

5 

in  section  5.4  to  occur  at  Re  =2.22x10  seems  to  predict 
much  earlier  transition  than  that  indicated  by  Yasuhara  [5] 

g 

of  Re  =1.2-1.8x10  .  Yasuhara  (5)  determined  the  transition 

X 

by  examining  the  measured  velocity  profiles  at  four  stations 
namely  x/L=0.143,  0.286,  0.429,  0.572  and  reported  that  the 

g 

transition  may  start  between  Re^=l. 2-1. 8x10  .  The  numerical 
modelling  of  transition  proposed  for  the  flat  plate  thus 
required  further  modification. 

The  above  computation  is  repeated  with  the  exception 
that  the  transition  is  set  at  x/L=0.37  or  Re  =1.37x10  as 

A 

given  by  Yasuhara  (5].  The  predicted  skin  coefficient  for 
this  case  with  experimentally  determined  transition  and  that 
predicted  with  built-in  transition  criteria  are  given  in 
figure  62  for  comparison.  It  shows  that  the  skin 
coefficient  on  the  ogive-nose  cylinder  based  on  transition 
model  did  not  have  dip  in  the  distribution  when  the  flow 
changes  from  laminar  to  turbulent  flow.  The  predicted  skin 
coefficient  with  the  transition  point  fixed  at  x/L=0.37 
shows  a  dip  at  the  skin  coefficient  arcund  the  end  of  the 
ogive-nose  or  x/L=0.06  even  the  flow  is  laminar  at  this 
region.  As  shown  in  figure  62  both  calculations  give 
approximately  the  same  maximum  skin  friction  coefficient  of 
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about  0.023  and  the  same  value  in  the  turbulent  flow  from 
x/L=0.5  to  1.  The  comparison  of  the  predicted  pressure 
distribution  on  the  cylinder  body  with  the  experimental  data 
[5]  was  shown  in  figure  63. 

It  shows  that  the  predicted  surface  pressure  based  on 
the  transition  model  under  prediction  but  gives  the  same 
trend  with  the  experiment.  The  predicted  surface  pressure 
with  experimentally  determined  transition  point  seems  to 
match  closely  to  the  experimental  data.  In  general  both 
calculations  predict  that  the  pressure  rises  as  the  flow 
approaches  the  nose  and  then  drops  to  a  minimum  before 
recovering  to  a  constant  value  before  it  reaches  the  tail 
edge  where  the  pressuie  increases  before  the  flow  past  the 
tail.  The  physical  explanation  is  that  as  the  fiov^ 
approaches  the  ogive-nose  it  decelerates  and  the  pressure 
begins  to  rise.  Once  the  fluid  is  on  the  ogive-nose  it 
begins  to  accelerate  as  the  pressure  starts  to  drop  sharply 
and  reaches  the  minimum  pressure  around  the  end  of  nose  (or 
the  start  of  the  straight  cylinder).  The  flow  begins  to 
decelerate  after  it  reaches  the  end  of  the  ogive-nose.  Once 
the  fluid  is  on  the  straight  cylinder  surface  the  pressure 
quickly  recovers  to  a  level  which  is  almost  that  of  the  free 
scream  pressure.  This  is  because  the  fluid  is  no  longer 
accelerated  =lorg  the  straight  surface  of  the  cylinder  and 
the  pressure  variation  across  the  boundary  layer  on  the 
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Figure  62.  The  Skin  Coefficient 
on  the  Ogive-Nose  Cylinder 
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Figure  63.  Pressure  Distribution  on 
the  Cylinder  and  Along  Wake 
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Figure  65.  Velocity  Profiles 
(u)  at  Zero  Angle  Attack 
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straight  cylinder  is  negligible.  When  the  flow  enters  the 
rear  region  x/L>0.5  where  the  flow  is  decelerated  due  to 
decrease  in  the  diameter  of  the  cylinder.  The  pressure  on 
the  surface  rises  again  so  that  the  sum  of  velocity  head  and 
pressure  head  is  approximately  conserved.  When  the  flow 
leaves  the  body  to  beco...^  wake,  the  flow  along  the  axial 
direction  is  then  accelerated  from  zero  velocity  at  the 
nonslip  surface  to  some  velocity.  This  acceleration  causes 
the  pressure  momenterly  to  drop  but  recoves  to  the  free 
stream  pressure  soon  after  the  acceleration  is  reduced. 
Yasuhara  (5]  remarked  that  his  experimental  data  are  not 
accurate  after  x/L=0.6  because  his  model  was  clamped  by  a 
supporting  device  at  its  rear  end,  and  the  model  was  hanged 
from  above  by  a  cantilever  beam.  Therefore  pressure 
variation  near  the  trailing  edge  which  was  predicted  by  the 
present  method  can  not  be  compared  with  Yasuhara' s  data. 
However  the  predicted  pressure  distribution  shown  in  figure 
63  is  qualitatively  similar  to  those  predicted  by  inviscid 
theory  or  experimrntaly  obtained  by  Ramaprian,  Patel  and 
Choi  (12)  for  flow  past  a  body  with  hemispheroid  at  the  rear 
end. 

The  predicted  longitudial  velocity  based  on  the 
experimentally  determined  transition  at  x/L=0.37  shown  in 
figure  64  is  quite  the  same  as  that  measured  by  Yasuhara 
(5).  Cebeci  (59)  solved  the  same  flow  past  the  slender 
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cylinder  by  the  boundary  layer  equations  using  two- layer 
mixing  length  model,  and  also  found  that  there  is  a  good 
agreement  between  the  prediction  and  measured  velocity 
profiles  of  Yasuhara.  It  should  be  remarked  that  the  use  of 
boundary  layer  equations  can  not  predict  the  pressure 
distribution  since  the  boundary  layer  approximation  assumes 
that  the  pressure  is  given  by  the  free  stream  flow. 
Therefore,  in  Cebtci  (59]  calculation  the  experimental  data 
of  pressure  distribution  was  used  as  inputs.  However  in  the 
present  FANS-3DEF  calculation  the  pressure  distribution  and 
velocity  components  are  predicted  simultaneously  and  no 
experimental  data  of  pressure  distribution  or  assumed 
potential  flow  solution  are  required  as  a  priori.  Figure  65 
shows  the  development  of  the  x-component  velocity  u  from 
upstream  to  the  wake  region.  It  should  be  mentioned  that 
the  y  coordinate  in  figure  65  is  streched  about  nine  times 
over  the  axial  scale  in  order  to  visualize  the  velocity 
distribution  near  the  body.  It  is  seen  that  the  boundary 
layers  grew  symmetrically  along  the  axial  direction  and 
merged  at  the  rear  end  to  form  wake. 

6.2  Flow  Past  Inclined  Ogive  Cylinder 
Once  the  FANS-3DEF  program  was  verified  with  the 
experiment  for  the  flow  past  the  axisymmetric  body  without 
angle  of  attack,  the  flow  past  the  ogival  cylinder  for 
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angles  of  attack  at  5,  10  and  15  degrees  are  predicted. 

This  is  a  complex  three  dimensional  flow  calculation  since 
the  flow  is  no  longer  a  symmetric  one  and  three  dimensional 
variables  and  grids  in  the  x,  r  and  9  directions  are 
required.  Since  the  computational  space  for  each  user  is 
limited  at  the  University  of  Iowa,  relative  coarse  grid 
spaces  are  used  here.  The  whole  compuauional  domain  are 
-0. 65<x/L<8.55,  0<(r-rQ)/L<0.850.  Figure  66  is  the  partial 
view  of  the  whole  computaronal  domain.  There  are  62  points 
in  the  x  direction  (axial  direction),  19  points  in  the  r 
direction  (radial  direction)  and  9  points  in  the  9  direction 
(azimuthal  direction).  It  should  be  mentioned  that  the 
relative  coarse  grid  spaces  are  used  only  to  illustrate  the 
capabilities  and  stabilities  of  the  FANS-3DEF  program.  More 
accurate  solutions  can  be  achieved  when  the  grid  spaces  are 
allowed  to  be  refined.  The  upstream  and  boundary  conditions 
for  the  X  and  r  component  velocity  u,  v  were  reset  as 
u=UQC0S(a)  and  v=UQSIN(a).  The  angle  of  attack  c  was  varied 
from  5,  10  to  15  degrees.  The  Reynolds  number  Re=3.7xl0'^  is 
used. 

The  transition  model  for  the  flat  plate  is  not  quite 
adequate  for  the  flow  past  an  ogive-nose  cylinder  as  solved 
in  the  last  section.  One  can  not  pre-predict  the  real 
transition  point  at  different  position  around  the  azimuthal 
direction  when  the  ogive-nose  cylinder  is  subjected  to  an 
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(a)  Partial  View  of  Computational  Domain 


(b)  Cross  Sections  at  Different  Location 


Figure  66.  The  Numberical  Grid  (62.'cl9x9) 
for  Flow  Past  Ogive-Nose  Cylinder  with  Angle 

of  Attack 
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angle  of  attck.  Therefore  in  this  study,  we  approximately 
assume  that  the  turbulent  flow  starts  at  X/L  =  0.4  or  local 
Reynold  number  is  14.8x10. 

Figure  67  -  69  show  the  predicted  skin  coefficent  at 
three  generators  (0  =  0“,  90“,  and  180°)  with  respect  to  the 
angle  of  attack  a  =  5,  10  and  15  degrees.  All  these  three 
figures  show  the  following  common  features.  First  the 
values  of  skin  coefficient  at  8  =  0“  are  increased  sharply 
at  the  front  part  of  ogive-nose;  then  droo  to  a  very  small 
value  at  the  end  of  the  ogjve-nose  or  X/L  =  0.06.  After  X/L 
=  0.06,  the  skin  coefficients  increases  sharply  again  till 
X/L  =  0.1.  Beyond  it,  the  skin  coefficients  varies  slower 
till  the  end  of  the  cylinder.  For  0  =  90“  the  skin 
coefficient  increase  slowly  and  then  a  a  big  drop  occurs 
at  X/L=0.06.  After  that,  there  is  no  too  much  change  till 
X/L=0.28.  At  X/L=0.4,  the  flow  is  assumed  to  be  turbulent 
flow  and  the  skin  coefficients  consequently  have  an  obvious 
jump.  The  skin  coefficient  then  decrease  slightly 
downstream.  For  9  =  180“,  which  is  the  rearward  of  the 
cylinder,  the  trend  of  skin  coefficent  is  almost  the  same  as 
that  at  0  =  90“ ,  except  that  the  variation  is  smaller  and 
smoother . 

Figures.  70  to  72  show  the  corresponding  pressure 
distribution  at  three  generators,  namely  8=0“  (windward 
side;  solid  line),  90“  (dotted  line)  and  180“  ( leet;ard  side. 
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dashed-dot  line),  with  respect  to  the  angle  of  attack  a=5, 

10  and  15  degrees.  All  these  three  figures  show  the 
following  common  features.  First,  the  pressure  at  the 
upstream  location  of  the  ogive-nose  unlike  the  case  of  zero 
angle  attack,  first  decreases  along  the  axis  before  it 
reaches  the  nose.  This  is  due  to  the  fact  that  the  flow  is 
accelerated  along  the  axial  line  when  there  is  an  angle 
attack  so  that  the  flow  on  the  axial  no  longer  like  that  of 
the  case  of  zero  angle  attack  where  the  flow  slows  down  as 
it  approaches  the  stagnation  point  at  the  nose  tip.  In  other 
words  when  there  is  an  angle  of  attack  the  stagnation  point 
is  no  longer  on  the  axial  line  and  the  flow  along  the  axial 
line  never  needs  to  decelerate  and  instead  it  accelerates. 
Consequently  the  pressure  decreases.  Second,  the  increase 
of  pressure  in  the  nose  region  on  the  windward  side  (0=0°) 
is  the  largest  because  of  the  existence  of  stagnation  region 
on  its  plane  and  the  increase  of  pressure  in  the  leeward 
side  (9=180°)  is  the  smallest  with  the  tangential  side 
(6=90°)  in  the  middle.  Third,  the  greater  the  angle  attack 
the  larger  is  the  spread  in  pressure  difference  from 
windward  side  to  the  leewardside. 

Figures.  73  to  75  depict  the  variation  of  the  x 
component  velocity  ,u,  on  the  plane  of  8=0  and  180  at 
different  angles  of  attack.  It  is  found  as  expected  that  the 
boundary  thickness  is  thinner  on  the  windward  side  (0=0°) 


Figure  73.  Velocity  Profiles 
(u)  at  5  Degree  angle  Attack 
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than  that  on  the  leeward  side  (0=180°).  No  boundary 
separations  are  predicted  for  5,  10  and  15  degrees  of  angle 
attack.  This  is  partly  due  to  a  small  angle  of  attack  and 
partly  due  to  moderate  curvature  of  the  ogive-nose  shape  at 
the  front  end  and  hemi spheroid  body  at  the  rear  end.  It  is 
seen  that  the  wake  flow  is  unsymmetrical  when  the'^'e  is  an 
angle  of  attack  and  it  shov/s  the  location  of  the  maximum 
defect  in  the  u  velocity  in  the  wake  region  is  not  on  the 
axial  line.  As  the  degree  of  angle  of  attack  increases,  the 
location  of  the  maximum  defect  moves  more  to  the  leeward 
side.  Figures.  76  to  78  show  the  variation  of  the  r 
component  velocitr  ,v,  at  different  angles  of  attack.  Here 
the  positive  value  denotes  that  th{  flow  in  the  positive  r 
direction  or  the  radial  direction.  It  is  seen  there  the  v 
component  velocity  on  the  leeward  side  in  general  is  small 
except  near  the  body  where  the  fluid  merged  after  it  passes 
the  body  from  the  windward  side. 


Figure  76.  Velocity  Profiles 
(v)  at  5  Degree  angle  Attack 


Figure  78.  Velocity  Profiles 
(v)  at  15  Degree  angle  Attack 
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CHAPTER  VII 

CONCLUSION  AND  SUGGESTION 

In  this  study  a  user  interactive  numerical  program 
called  FANS-3DEF  (Finite  Analytic  Numerical  Solution  of 
Three  Dimensional  External  Flow)  is  developed.  This  program 
which  is  based  on  the  finite  analy-'.ic  method  on  the 
body-fitted  coordinate  system  with  modified  SIMPLER 
algorithm  was  used  to  predict  ’ ncompressible  laminar  and 
turbulent  flows  past  the  finite  flat  plate  and  axisymmetric 
bodies  with  or  without  angles  of  attek.  Some  examples  of 
flow  prediction  where  the  experimental  data  are  available 
are  presented  to  demonstrate  the  accuracy  and  validity  of 
the  FANS-3DEF  program. 

The  major  contributions  of  the  present  work  are: 

1.  Derivation  of  Finite  Analytic  solution  for  unsteady 
three  dimensional  laminar  and  turbulent  flows  on  the 
body-fitted  coordinate  system. 

2.  Calculation  of  a  computational  domain  includes  the 
entire  geometry  from  the  approaching  flow  to  the  wake 
region. 

3.  Development  of  FANS-3DEF  program  and  its 
applj  cations . 
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4.  Investigation  of  complex  vortex  shedding  behind  a 
flat  plate  and  complex  flow  past  axisymmetric  bodies. 

5.  A  simple  numerical  model  for  transition  zone  is 
developed  and  tested  on  the  flat  plate  so  that  the 
prediction  of  a  flow  may  be  calculated  for  the  entire 
plate  from  the  approaching  flow  to  the  wake  region. 

All  calculations  presented  here  were  performed  on  a 
Prime  750  minicomputer  at  the  CAELAB  of  the  University  of 
Iowa  with  computing  times  of  less  than  half  hour  for  the  two 
dimensional  and  axisymmetric  cases,  and  of  the  order  of  two 
hours  for  the  fiat  plate  with  vortex  shedding  and  flow  past 
axisymmetric  body  with  angles  of  attack.  It  should, 
therefore,  be  rasonable  to  use  the  FANS-3DEF  program  for 
practical  applications. 

While  the  overall  predicted  results  are  shown  to  be  in 
good  agreement  with  experimental  data  or  reasonable  when  the 
experimental  data  are  unavailable  there  are  still  several 
aspects  about  the  numerical  methods  and  turbulence  and 
transition  models  in  the  FANS-3DEF  that  can  be  further 
developed  and  improved.  The  following  suggestions  are 
submitted  for  further  study. 

1.  The  application  of  the  numerical  model  of  transition 
zone:  the  numerical  model  of  transition  zone 

presented  here  is  developed  based  on  the  simple 
physical  phenomena  on  the  flat  plate,  therefore  it 


needs  more  study  and  tests  before  it  can  be 
completely  applied  to  other  geometries  of  bodies  or 
the  flow  problem  involving  the  strong  curvature. 

The  sensitivity  of  the  solution  to  the  turbulence 
model:  the  validity  of  the  one- scale  k-£  turbulence 

model  for  more  complex  flow  problems  has  not  been 
verified.  The  tv/o-scale  k-e  turbulence  model  which 
has  strong  physical  support  can  be  considered  in  the 
further  study.  The  two-node  wall  function  based  on 
the  fully  developed  flow  assumption  in  general  is  not 
applicable  to  flow  with  separation.  Thus  a  wall 
function  that  is  valid  for  the  turbulent  flow  with 
separation  should  be  developed  if  complex  separation 
flows  are  to  be  predicted. 

The  use  of  a  grid  system  for  the  pressure  equation: 
the  regular  grid  system  which  has  some  advantages  in 
saving  computer  time  and  storage  requires  further 
study  to  become  competiable  with  the  staggered  grid 
system  in  accuracy  and  stability. 

The  programing  of  FANS-3DEF:  the  FANS-3DEF  program 
is  a  research  code,  it  needs  more  testing  and 
modification  to  become  a  general  program. 


199 


APPENDIX  A 

THE  TWO  DIMENSIONAL  FA  COEFFICIENTS 
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In  this  appendix  a  general  finite  analytic  algebraic 
representation  of  two  dimensional  convective  transport 
equations  is  briefly  outlined.  We  consid  :r  a  two 
dimensional  convective  transport  equation  in  a  given  finite 
analytic  element  shown  in  Fig.  A-1.  The  equation  is 

04)^  +  2A<t>x  +  2B<Py  =  <P XX  <pyy  ^ 

Where  D,  A,  B  and  f  are  constants  in  a  given  FA  element 
such  as  those  shown  in  Eq.  (12).  In  order  to  solve  Eq. 

(A-1)  in  a  given  element,  one  must  specify  boundary  and 
initial  conditions  for  the  element.  Among  the  possible 
solution  forms  of  Eq.  (A-1)  are  a  constant,  an  exponential 
and  a  linear  function.  A  constant,  an  exponential  and  a 
linear  function  then  are  used  to  describe  the  boundary 
function  of  the  local  element.  For  example  the  northern 
boundary  function  of  a  element  as  shown  in  figure  A-1  can  be 
appro-ximated  by 

2AX 

4'jj(x)  =  ajq(e  -  1)  +  bjjX  +  (A-2) 

In  term  of  the  three  nodal  values  on  the  northern  boundary 

the  coefficients  a.,,  b.,,  and  c.,  are 

N  N  N 

'^’NE  '**NW  ~ 

=  - 

4  sinh^Ah 

bxi  =  — {^NE  -  *^’nW  "  coth  Ah  («ne  <’NW  “  } 

2h 

Cn  = 
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similary,  the  boundary  conditions  for  south,  east  and  west 
side  can  be  approximated  as  follow: 

2Ax 

■  as(e  -1)  +  bgx  +  Cg 
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One  may  use  one  of  the  following  series  to  evaluate  and 
P_  in  the  above  expression.  They  are: 

O 


E:  =  _ -(-1)  Xn\  h _ 

^  m=l  ~  :  rTz 

■  {(Ah)^  +  (Xjnh)M^  cosh(Uj^k) 

P  =  4E.,  Ah  Cosh(Ah)  Cosh(Bk)  Coth(Ah) 
A  2 


p  =  1  +  Bh  Coth(Bk) 

.Ak  Coth(Ah)  '  a  ' 


%'  = 


+  B^  -A 


Ujn  =  (A^  +  b2  + 


Ej  = 


-(-l)”^X^*k 


1^=1  {  (Bk)  ^  cosh(g’mh) 


p  =  4El  Bk  Cosh(Ah)  Cosh(Bk)  Coth(Bk) 
B  ^ 

D  -  ’  +  Ak  Coth(Ah)  ,p  V 

~  Bh  Coth(Bk)  ^  B  ’ 

,  _  (2in  -  l)iT 


,  _  {  2m  -  1 )  Tt 


Although  both  series  should  provided  same  P^^  and  Pg  values, 
it  is  however  more  convenient  to  use  E2  over  E2'  series  if 
the  first  term  of  E2  series  is  less  than  that  of  E2 '  series 
and  vice  versa. 

In  the  present  study  the  problem  is  solved  on  the 
transformed  domain,  and  the  general  two  deraensional  FA 


equation  on  the  transformed  domain  can  be  written  as 
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Dcj),  +  +  2B<^^  =  E4)^^  +  F({)^^  +f 


nn 


(A-4) 


Here  if  E  and  F  are  equal  to  one  then  Eq.  (A-4)  is  reduced 
to  Eq.  (A-1).  However,  in  general  E  and  F  are  positive 
values  and  not  equal  to  one.  Therefore  in  order  to  cast  Eq. 
(A-4)  into  Eq.  (A-1),  one  can  introduce  the 
coordinate-stretching  functions. 


;  *  = 


C*  =  -7|-  '  ^  "7f" 

Then  Eq.  (A-4)  can  be  reduced  to  the  same  form  as  Eq.  (A-1) 
as 

D({)^  +  2A*(|)^*  +  +  '*’n*n*  ^ 


with 


A*  = 


A 

7W~ 


B*  = 


B 

TF* 


and  a  local  element  with  dimensions 

AC*  =  h  =  ,  An*  =  k  = 

Thus  one  will  obtain  the  same  FA  formular  as  shown  in  Eq. 
(A-3).  For  non-uniform  grid,  the  FA  solution  becomes: 

n-1  DBp 


1  8 
At 


'J’P  =  I  Bnb'i’nb  +  Bpfp  + 

G  +  — ^  nb=l 


(A-5) 


where 
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G  -  1-(2-»-3)C„(,  -(2-t-t)Csc  -(2-s-s)  (2-t-t)Cs„ 

BnE  =■  Cne  +(s-i)CNW  +  (t-l)Cs2  +  (3-1)  (t-l)Cs„ 

®NW  3  +  sCt-DCg^, 

Bse  =  t  Cse  +  t(3-l)CsH 
Bgw  =  s  t  Cs„ 

Bec  =  Cec  +  (s-l)C„c  ■»•  Ci-t-tjCsE  +  (s-1)  (2-t-t)Cs„ 

BWC  “  3  ■(•  s{2-t-t)Cg^ 

Bnc  =*  Cue  +  (t-l)Csc  ■*■  (2-s-S)Cnv,  +  (t-1)  (2-s-¥)Cs„ 

Bsc  =“  t  Csc  +  t(2-3-s)C3„ 

Bp  =  Cp 

where  C's  are  FA  coefficients  of  uniform  grid  space  and 


-  hs 

.  ,  2Ahr  .1,  i«“2Ahu 

h,^(e 1)  +  hE(e  ” 

-  1) 

a  -  S-- 
,  hvi 

h<5(e2Bhn  +  e'^Bhj,  «  2) 

—  h« 

hgCe^BhN  -  1)  + 

-  1) 

The  above  relations  between  B's  and  C's  coefficients 
are  derived  from  interpolation  of  nodal  values  for  uniform 
grid  between  nodal  value  of  non-uniform  grid  with 
interpolating  function  of  a. exp(x) +bx+c . 
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THE  FANS-3DEF  PROGRAM 
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B.l  Main  Program 

The  main  program  of  FANS-3DEF  is  essentially  written  to 
solve  the  unsteady  three  dimensional  turbulent 
incompressible  flow  governed  by  continuity  equation,  Eq. 

(1),  momentum  equation,  Eq.  (2),  and  turbulent  transport 
equation,  Eqs.  (3)  to  (5),  based  on  one  or  two  scale  k-s 
turbulence  model.  These  equations,  Eqs.(l)  to  (5),  are 
transformed  to  the  body-fitted  coordinate  system  based  on 
Poisson  equation  Eq.  (8).  Thus  Eq.  (1)  is  expressed  in  Eq. 
(10)  and  Eq.  (2)  combines  with  Eqs.  (3),  (4)  and  (5)  are 
expressed  in  a  general  form  given  in  Eq.  (11).  Numerically 
the  finite  analytic  formulation  converts  Eqs.  (10)  and  (11) 
into  algebraic  equations.  They  are  Eq.  (11)  into  Eq.  (13) 
and  Eq.  (10)  into  the  pressure  equation  (17).  In  summary 
the  main  program  of  FANS-3DEF  is  written  to  obtain  solution 
of  Eq.  (1)  to  (5)  based  on  their  algebraic  equations  given 
by  Eqs.  (13)  and  (17). 

The  numerical  procedure  for  solving  Eqs.  (13)  and  (17) 
is  programmed  based  on  the  modified  SIMPLER  algorithm 
introduced  in  the  section  3.7  of  the  last  chapter.  The 
computer  programs  are  written  such  that  there  are  many 
independent  subroutines  which  can  be  called  to  the  main 
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program  to  execute  some  specified  function.  In  this  way 
these  independent  subroutines  can  be  mv  dified  by  the  user 
and  some  new  subroutines  can  be  added  by  user  as  desired. 

In  table  5  and  table  6  the  computational  procedure  and 
structure  the  main  program  of  FANS-3DEF  are  illustrated. 
Table  5  shows  the  flow  chart  of  the  main  program  and  table  6 
shows  the  relationship  between  each  subroutine.  In  the 
following  the  functions  of  each  subroutine  in  the  main 
program  are  described  in  the  alphabetical  order. 


(1)  CHECK(N) 

This  is  a  check  and  change  subroutine.  It  check 
if  it  is  required  to  update  boundary  conditions 
either  along  with  symmetric  line  or  at  the  center 
line  of  wake.  The  N  in  the  bracket  denotes  as 
1  for  velocity  component  u,  2  for  velocity  component 
V,  3  for  velocity  component  w,  4  for  pressure,  5 
for  kinetic  energy  and  6  for  dissipation  rate. 


(2)  COEF 

COEF  solves  FA  coefficients,  based  on  Eq.  (12). 


(3)  EQCOE 

EQCOE  calculates  the  coefficients  of  governing 
equation  Eq.  (12).  The  coefficient  a*^ ,  b'^,... 
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Table  5  (B-l)  :  The  Flow  Chart  of  Main 

Program  of  FANS-3DEF 
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MAIN 


[— lyRLLfN 
L-FRES.S(2'^ 


TRlOnG 


r EQCOE 
[-  COEF 

X 

I  riniDHO 

_ Sl/En-SOLUE  -j- CHECK 

1  '-MSI  -  CHECK 

I-  HELCOR  , —  TRIDHG 

L  HUEL —  SOLHE  _ L  CHECK 

I _ MSI  —  CHECK 


EOCOE 
_ STKDl!_  COEF 

j  r  triuhg 

-  SOi.HE-r  CHECK 

MS! - CHECK 

_ PRESS! IJ _  TRIORG 


Table  6  (B-2)  :  The  Structure  of  Main 

Program  of  FANS-3DEF 
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are  listed  in  table  3. 


(4)  HVEL 

Hvel  evaluates  the  pseudovelocity  (u^,  in  Eq.  (14)) 


(5)  MSI 

MSI  stands  for  Modified  Strongly  Implicit  method 
(see  Ref.  50).  The  subroutine  solves  the  system  of 
9-point  FA  algebraic  equations. 


(6)  PRESS(N) 

PRESS(N)  solves  pressure  equations  given  in  Eqs.  (17) 
and  (21).  N=1  refers  to  pressure  variable  in  the 
whole  domain  and  N=2  for  pressure  correction  at  each 
cross  scetion  given  in  Eq.  (21). 


(7)  SOLVE 

SOLVE  is  a  solution  subroutine  using  either  MSI 
or  tridiagonal  method. 


(8)  STKD 

STKD  solves  the  turbulent  transport  equations  for 
kinetic  energy  k  and  its  dissipation  rate  e  . 


(9)  SVEL 

SVEL  solves  the  starred  velocity  (u*). 
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(10)  TRIDAG 

TRIDAG  stands  for  tridiagonal  metric  solver.  It 
solves  a  set  of  algebraic  equation  have  a  tridiagonal 
matrix.  The  subroutine  can  be  execute  either  in  the 
row  or  column  direction  in  the  flow. 


(11)  UPDATE(N) 

UPDATE(N)  updates  the  outlet  boundary  conditions. 
N=1  to  3  for  velocity  components,  4  for  pressure 
and  5,  6  for  k  and 


(12)  VELCOR 

VELCOR  solves  the  correction  velocity  (u').  which  is 
defined  in  the  section  'Pressure  Equation'  Eq.  (20). 


(13)  WALLEN 

WALLEN  is  a  subroutine  to  specify  the  values  for 
u,  V,  w,  k  and  e  for  the  first  computational  node 
from  the  wall  if  the  flow  is  turbulent.  The  wall 
functions  are  specified  in  Eqs.  (7)  and  (3). 
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B.2  I/O  System 

FANS-3DEF  has  a  very  flexible  I/O  system.  Tlie  input 
operations  can  be  rend  from  a  data  file  or  interactively 
from  the  terminal.  If  the  user  uses  interactive  session,  all 
input  data  once  installed  will  be  saved  iti  a  data  file  named 
FANS_INPUT  automatically.  This  is  useful  because,  if  the 
computed  result  is  not  satisfied  or  the  user  wants  to  revise 
a  portion  of  data,  he/she  may  do  so  in  the  data  file  and 
then  run  the  program  without  needing  to  type  tlie  whole  input 
data  again.  The  output  result  is  alv/nys  stored  in  the 
output  files  but  the  user  has  options  to  print  the  result 
after  nth  iteration  and  to  choose  the  tlircc  typos  of  output 
file.  The  "n"  specified  in  the  output  result  means  that  an 
output  result  is  printed  at  the  end  of  every  n  iterations. 

A  list  of  the  commands,  options  and  variables  which 
control  the  I/O  system  are  given  bolov;. 

COMMANDS : 

(1)  RDFILE 

This  command  executes  FANS-'3DEF  from  tlie  data 
file  named  FANS_INPUT  directly. 


(2)  RDINT 

This  command  rends  input  data  from  the 
interactive  termannl  and  stores  them  in  the 
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file  named  FANS_INPUT  automatically. 


(3)  CHECK 

This  command  displays  the  information  selected 
by  the  user. 

(4)  RUN 

This  command  executes  the  main  program  to  solve 
the  problem. 


(5)  STOP 

This  command  is  used  to  stop  the  computation 
and  to  be  out  of  the  program  FANS-3DEF. 


In  the  command  RDINT,  there  are  some  built  options. 
Their  functions  and  selections  are: 


Ootions 

(1) ‘gRID  -- 

(2)  DIMN  -- 

(3)  LORT  -- 

(5)  TUMS  -- 

(6)  INIT  -- 

(7)  FORM  -- 

(8)  END  -- 


Selections 

STAggered  or  REGular  grid  system. 

2D,  AXI symmetric  or  3D  dimension. 
LAHinar  or  TURbulent  flow. 

ONE  or  TV/0  scale  k-e  turbulence  model. 
UNI  form  or  UPDate  initial  guess. 

TYl,  TY2  or  TY3  output  files. 

To  leave  RDINT. 


In  F.ANS-3DEF  the  codes  for  the  options  and  selections 
to  be  used  are  the  ones  shown  in  bold  characters.  For 


e.xample,  in  selecting  the  grid  system,  the  option  is  GRID. 
In  this  option,  the  selection  of  staggered  grid  system  is 
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STA  and  the  selection  of  regular  grid  system  is  REG.  Thus 
one  should  type  either  GRID  STA  or  GRID  REG  for  staggered  or 
regular  grid  system. 

The  size  or  length  of  variables  must  be  given  after 
choosing  the  option  DIMM,  INIT  and  FORM. 


(a)  The  variables  after  the  option  DIMN  are; 


Variables 

(1)  IMAX  -- 

(2)  JMAX  -- 

(3)  KMAX  -- 

(4)  ITER  -- 

(5)  RE 

(6)  DT 


Meaning 

The  maximun  node  number  in  the  direction. 

The  maximun  node  number  in  the  ( n )  direction. 

The  maximun  node  number  in  the  (^)  direction. 

The  total  iteration  numbers  allowed. 

Reynolds  number. 

Time  increatment  or  At  in  Eq.  (13), 


(b)  The  variables  after  the  option  INIT  are: 

Var  .ijles  Meaning 

(1)  UI  --  The  u  velocity  component  of  incoming  flow. 

(2)  VI  --  The  V  velociry  component  of  incoming  flow. 

(c)  The  variables  after  the  option  FORM  are: 

Variables  Meaning 

(1)  IT  --  The  output  result  is  printed  at  each  IT 
iteration. 

FANS-3DEF  recognizes  free  format  inputs.  The  user  can 
type  variables  wirh  real  or  integer  number  but  no  character. 
To  distinguish  many  variables  in  the  same  line,  the  user 
should  use  a  space  or  a  comma  between  two  variables.  The 
structure  of  I/O  system  is  shown  in  table  7. 

The  easiest  way  for  the  user  to  become  familiar  with 
the  FANS-3DEF  program  is  to  illustrate  I/O  system  with  some 
examples.  In  the  following  sections  both  interactive 
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CHECK 


S -  RUN 

-  STOP 


Table  7  (B-J)  :  The  ScrucCure  of  I/O  system 
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session  and  data  file  reading  will  be  introduced  to  explain 
how  to  input  desired  data  into  the  FAWS-3DisIi'  program. 

B.3  Interactive  Session 
After  compiling  FANS-3DEF  program  by  FORTRAN  77 
compiler,  the  user  can  then  run  the  program.  In  PRIME 
sysytem  SEG  command  was  used  to  run  a  compiled  program. 

Here  we  present  the  print-out  which  v/as  actually  shown  on 
the  screen  between  the  two  symbols  Where  n  is 

the  number  of  1,  2,  3  .  used  to  distinguish  the 

different  print-out.  The  explanation  of  tlie  print-out  is 
given  in  the  parentheses. 

SEG  FANS-3DEF 

(A  welcome  message  and  commands  will  come  out  as) 


*  WELCOME  TO  USE  RESEARCH  CODE 

* 

*  FANS-3DEF 

* 


* 

* 

i: 

i: 


* 

* 

* 

* 

* 


Version . 1  1986  * 

* 

-If  you  have  any  comments  or  suggestions  * 

please  inform  * 

*■ 


*  C.J.  CHEN  (2216EB)  * 

*  UNIVERSITY  OF  IOWA  * 

*  IOWA  CITY,  IOWA  52242  * 


Specify  the  follov;ing  commands: 
(RDFILE),  RDINT,  CHECK,  RUN,  STOP 
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Command  is  > 


(If  the  interactive  session  is  used,  the  user  should  type 
RDINT  and  the  screen  v/ill  shov/) 

— 3 

Command  is  >  E^DINT 

Specify  the  following  options: 

--  DIMN  (2D,  AXI,  3D) 

--  GRID  (STA,  REG) 

--  LORT  (LAM,  TUR) 

--  INIT  (UNI,  UPD) 

--  FORM  (TYI,  TY2,  TY3 ) 

--  END  To  leave  RDINT 

Option  is  > 


(There  are  six  options  to  be  chosen  and  no  particular  order 
is  set.  Thus  the  user  can  choose  any  option  except  t)'»e  last 
option  END,  because  if  tlie  option  END  is  chosen  the  1/0 
system  will  return  from  the  option  level  back  to  the  orginal 
command  level.  The  following  are  explanations  of  these 
options  from  DIMN  to  END.  If  the  user  cliooses  2U  or  AXI  for 
DIMN,  then  tlie  user  types  DIMN  2D  or  DIMN  AXI.  The  terminal 
will  respond) 

Option  is  >  DIMN  2D 

TYPE  VALUES  FOR  IHAX, UMAX, ITER, RE, DT 

THEY  ARE  > 

(or) 

Option  is  >  DIMN  AXI 

TYPE  VALUES  FOR  IMAX, UMAX, ITER, RE, DT 

THEY  ARE  > 
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(For  2D  or  axisymmetric  flow,  FANS-3DEF  solves  the  fully 
elliptic  equation  on  the  XY  cross  section  automatically. 

Thus  one  only  has  to  specify  variables  such  as  IMAX,  JMAX, 
ITER,  RE  and  DT.  For  example  the  user  may  choose  IMAX=20, 
JMAX=20,  ITER=30,  RE=100000  and  DT=0. 1,  then  the  user  can 
type  as) 

— 

THEY  ARE  >  20.,  20  30.  100000,0.1 

(Since  FANS-3DEF  recognizes  free  format  inputs,  the  user 
can  type  real  or  integer  numbers  for  either  real  or  integer 
variables.  The  user  doesn't  have  to  worry  about  whether 
variables  are  integer  or  real,  the  FANS-3DEF  can  recognize 
them.  In  order  to  distinguish  one  variable  from  the  other, 
the  user  needs  to  use  either  a  space  or  a  comma  between  the 
variables.  Now  if  the  user  chooses  3D  for  DIMN  then  the 
user  should  type  DIMN  3D.  The  FANS-3DEF  program  will 
respond) 

— *__* — 6 

Option  is  >  DIMN  3D 

TYPE  VALUES  FOR  IMAX, JMAX , KMAX, ITER, RE , DT 

THEY  ARE  > 

(Here  the  user  needs  one  more  variable  KMAX  if  three 
dimensional  problem  is  considered.  After  the  user  specifies 
all  variables  more  messages  will  come  on  the  terminal) 

THEY  ARE  >  20,  20,  20,  30,  100000.,  0.1 
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(After  specifying  the  option  DIMN,  the  user  may  go  for  the 
option  GRID.  In  this  option  there  are  tv/o  selections  ,STA 
(staggered  grid  syste.m)  and  REG  (regular  grid  system)). 

Option  is  >  GRID  STA 
(or) 

Option  is  >  GRID  REG 

— *__* - Q 

(Next  option  is  LORT  (laminar  or  turbulent).  If  one  chooses 
LAM  for  laminar  flow,  then) 

Option  is  >  LORT  LAM 

Option  is  > 

(Here  no  other  selections  or  messages  will  be  shown. 

However  when  the  user  chooses  TUR  for  turbulent  flow  then) 

-*  —  *--10 

Option  is  >  LORT  TUR 

Please  type  ONE  for  one-scale  or  TWO  for  two-scale  k-E 
turbulence  model 

IT  IS  > 

--*  —  *--10 

(Here  we  can  type  ONE  or  TWO  for  one  or  two  scale 
turbulence  model.  Although  the  two-scale  k-e  turbulence 
model  was  not  tested  in  this  study,  the  option  for  thi.'3 
model  is  provided  here  for  further  expansion  and  study. ) 
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The  next  option  is  initial  guess  INIT.  In  this  option 
there  are  two  selections.  One  is  UNI  for  uniform 
distribution,  the  other  is  UPD  which  uses  the  previous 
result  as  initial  guess.  The  message  and  variables  of  each 
selection  are) 

— 11 

Option  is  >  INIT  UPD 

Please  make  sure  you  have  a  data  file  called  GUESS. 

(or) 

Option  is  >  INIT  UNI 

Now  the  velocity  components  are  uniform  and 

other  variables  are  zero  in  the  whole  domain. 

Please  type  the  values  for  velocity  components 

of  incoming  flow,  that  is;  UI,  VI. 

THEY  ARE  > 

— 11 


(Here  the  user  may  need  a  hand  calculator  to  find  out  the 
values  of  UI  and  VI.  For  example,  if  angle  of  attack  =5 
then  UI=0. 9961947,  VI=0 . 0871557 . ) 

The  next  option  is  to  choose  the  type  of  output  files. 
There  are  three  types  TYl,  TY2  and  TY3 .  The  format  of  each 
output  file  will  be  listed  and  explained  in  the  next 
section.  If  the  user  chooses  TY3  then) 

—  *  —  *  — 12 

Option  is  >  FORM  TY3 

Type  number  of  iterations  oer  outout 
IT  IS  > 

--*--*--12 


(So  the  user  needs  to  specify  the  number  of  iteration  at 
which  the  output  of  computed  result  is  made.  .After  having 
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specified  all  desired  data,  then  user  can  use  the  option  END 
to  return  to  the  orginal  command  level.  They  are) 

—  *—*—13 
Option  is  >  END 

Specify  the  following  commands: 

(RDFILE),  RDINT,  CHECK,  RUN,  STOP 

Command  is  > 

-*--*--13 

(The  user  is  returned  to  the  command  level.  The  user  can 
use  command  CHECK  to  find  out  whether  the  desired  data  had 
been  read  correctly  or  not) 

—  *  —  *  —  14 
Command  is  >  CHECK 

********************************************************** 

*  The  FANS-3DEF  program  will  run  under  the  following  * 

*  conditions:  * 

*  * 

*  --  DIMN  iS:3D  * 

*  —  GRID  is:STA  * 

*  --  LORT  iS:TUR  * 

*  --  TUMS  is: TWO  * 

*  --  INIT  is:UNI  * 

*  **  UI=0. 9961947  VI=0. 0871557  * 

*  --  FORm  is;TY3  * 

*  **  at  5  iteration  * 

*  IMAX=20  J!yiAX=20  KMAX=20  ITER=30  * 

*  RE=  O.lOOOe+05  DT=  O.lOOOE+00  * 


Specify  the  following  commands: 
‘(RDFILE),  RDINT,  CHECK,  RUN,  STOP 

Command  is  > 
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(If  the  user  finds  some  input  data  in  which  changes  are 
needed,  he/she  may  use  command  RDINT  again  and  give  the 
desired  data.  These  new  data  will  replace  the  original 
data.  If  all  the  desired  data  are  correct  and  input  data 
files  (PHYSBODY,  GUESS)  are  ready,  then  the  user  may  use 
command  RUN  to  call  subroutine  SOLVER  to  solve  the  problem. 

So  far,  only  the  correct  typing  was  used  as  an  example. 
Suppose  the  user  has  made  some  typing  errors.  FANS-3DEF 
will  return  a  warning  message  immediately  and  the  user  may 
retype  it.  For  example) 

(in  command  level) 

— 15 

Command  is  >  CHECC 

** INVALID  COMMAJJD,  CHECK  MANUAL! 

Specify  the  following  commands: 

(RDFILE),  RDINT,  CHECK,  RUN,  Sfop 

Command  is  > 

(or  in  option  level) 

Option  is  >  LOT 

‘**INVALID  OPTION,  CHECK  MANUAL! 

Oprion  is  > 

(If  the  user  forgets  typing  selection  after  the  option, 
then  FANS-3DEF  will  give  the  message  and  the  user  can  add 
those  selections  immediately.  For  example) 

—  *  — 16 

Option  is  >  LORT 

NEED  SELECTIONS  1  THROUGH  1 

SELS: 

--*--*--16 
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(Here  "1  THROUGH  1"  means  need  selections  from  selection  1 
to  selection  1.  Since  for  LORT  there  is  only  one  selection 
so  we  can  just  type  LAM  or  TUR. 

If  user  wants  to  leave  the  FANS-3DEF  program,  he/she 
can  do  so  by  typing  command  STOP  then  a  good-bye  message 
v/ill  come  out.  It  is) 

—  *  —  *  —  17 

Command  is  >  STOP 

**i:***************‘jtdt****dp**ir********’***:itTt:t*Tb***')fc' 

*  3YE  NOi'.'  !  !  * 

*  * 

*  —  Thank  you  for  using  FANS-3DEF  * 

-k-k-k'k-k-k'k'k-k-k-kicicic'kic-k'kir'k-k-kic-k-k'kic-k'k-k'kir'k-kie-kit'ic-ic-k'k’k'kicic-kir-k 

—  *  —  *--17 


B.4  Reading  from  Data  File 
In  this  section  the  same  data  file  FANS_INPUT  which  is 
created  by  the  interactive  session  is  used  as  an  example. 
Before  using  this  data  file,  the  user  must  add  command 
RDFILE  at  the  first  line  of  the  file  and  corrects  some 
errors  that  were  made  during  the  creation  of  the  data  fiel 
FANS_INPUT.  The  following  j s  an  example  of  the  correct  list 
of  F.SlNS  input. 


RDFILE 
RDINT 
DIMM  3D 

20  20  20  30  O.lOOOE+05  O.lOOOE-t-00 
CORD  BOD 
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LORT  TUR 
TWO 

FORM  TY3 
5 

END 

CHECK 

RUN 

STOP 


Then,  run  the  program  FANS-3DEF  as  before. 

--*--*--18 
SEG  FANS-3DEF 


(A  welcome  message  and  commands  will  come  out  as) 
--*--*--19 


*  WELCOME  TO  USE  RESEARCH  CODE  * 

*  * 

*  FANS-3DEF  * 

*  * 

*  Version. 1  1986  * 

*  * 

*  -If  you  have  any  comments  or  suggestions  * 

*  please  inform  * 

*  * 

*  C.J.  CHEN  (2216EB)  * 

*  UNIVERSITY  OF  IOWA  * 

*  IOWA  CITY,  IOWA  52242  * 


Specify  the  following  commands: 
(RDFILE),  RDINT,  CHECK,  RUN,  STOP 

Command  is  > 

-*--*--19 


(Now  type  command  RDFILE  and  on  a  terminal  it  appears  as) 

--*--*--20 
Option  is  >  RDFILE 
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Do  you  want  to  see  the  procedure  on  the  terminal (Y/N) 
Answer  is  > 

-*  —  *--20 


(If  the  user  already  has  the  general  idea  of  the  whole 

procedure,  he/she  may  use  N  (no)  to  save  time.  In  this  case 

the  FANS-3DEF  only  provides  information  of  the  total  input 

data  and  the  good-bye  message  when  the  program  is  finished. 

They  are) 

-*--*--21 
Answer  is  >  N 

*  The  FANS-3DEF  program  will  run  under  the  following  * 


*  conditions:  * 

*  * 

*  --  DIMN  iS:3D  * 

*  —  GRID  is:STA  * 

*  --  LORT  is:TUR  * 

*  —  TUMS  iS:TW0  * 

*  —  INIT  iS;UNI  * 

*  **  UI=0. 9961947  VI=0. 0871557  * 

*  —  FORm  is;TY3  * 

*  **  at  5  iteration  * 

*  IMAX=20  Jrv!AX=20  KMAX=20  ITER=30  * 

*  RE=  O.lOOOe+05  DT=  O.lOOOE+00  * 


*******+**************************x*****x************** 

(If  the  subroutine  SOLVER  is  executed  completely,  then 
good-bye  message  will  come  out.) 

*'*************’X'i'*-i:  +  ************'*********x** 

*  3YE  NOW  ! !  * 

*  * 

*  —  Thank  you  for  using  FANS-3DEF  * 

*********-i:'**'i:xi:xTt***  +  *****-jt**'*-*****x******* 

OK, 

-*  —  *--21 


If  the  user  still  desires  to  see  the  whole  procedure  on 
the  screen  he  may  choose  Y  (yes)  instead  of  N  (no)  at  the 
last  question. 
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B.5  Format  Of  Input  Data  File 
There  are  two  kinds  of  input  data  files  in  the 
FANS-3DEF  program.  One  is  the  data  file  named  PKYSBODY  for 
coordinate  relationships,  the  other  is  the  data  file  named 
GUESS  for  initial  guess  of  the  variables  u^ ,  p,  k  and  e . 
Since  these  tv/o  input  data  files  must  be  read  immediately 
after  the  command  RUN  is  executed,  the  user  has  to  create 
these  two  data  files  before  running  the  program  and  has  to 
make  sure  that  they  have  the  same  format  as  shown  in  the 
following.  Otherwise,  a  I/O  error  message  will  be  shown  on 
the  screen  and  the  program  FANS-3DEF  will  be  forced  out  of 
the  running  mode  by  PRIME  computer. 

E.5.1  PHYS30DY 

The  format  of  data  file  PHYSBODY  for  2D  and 
axisymmetric  flows  are: 

READ(,1)  (NBOSE( I) , 1=1,2) 

READ( , 2 ) ( ( X( I , J ) , 1=1 , IMAX) , J=1 , UMAX) 

READ{  ,2)(  (Y(I,  J)  ,1  =  1,  IMiAX),  J=l,  UMAX) 

READ( ,2) { {Fi( I, J) , 1=1 , IMAX) , J=l, UMAX) 

READ (,2)((F2(I,J),I=1, IMAX ) , J=1 , UMAX ) 

1  F0Rr>IAT(lX,6I10) 

2  F0Ri-!AT(lX,6Ei2.4) 


Here  the  first  state.ment 
between  i  to  IMAX.  The  user  n 
positions  under  N30SE,  one  for 


NBOSE  is  the  integer  number 
eeds  to  specify  two  different 
the  leading  edge  and  the 
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other  for  the  trailing  edge.  NBOSE(l)  is  the  nodal  point 
denoting  the  leading  edge  of  the  body,  NB0SE(2)  is  the  nodal 
point  denoting  the  trailing  edge  of  the  body.  The  second 
and  third  statement  X  and  Y  are  the  cartesian  coordinates 
for  2D  body  shape  or  the  cylindrical  coordinates  for 
axi symmetric  body  shape.  FI  and  F2  are  the  control 
functions  given  in  Eq.  (8). 

Then  the  format  of  PHYSBODY  for  3D  body  shape  are: 


READ(,1)  (NBOSE(I), 1=1,2) 

READ(  ,2)  ( ( (X(  I,  J,K) ,  1=1,  J=l,  JMAX)  ,K=1,KI-IAX) 

READ(,2)  ((  (Y(I,  J,K)  ,  1=1 ,  IMAX)  ,  J=l,  Ji-IAX)  ,  K=l,  KMAX) 
READ(  ,2)  ((  (2(  I,  J,K)  ,  1=1 ,  II^AX)  ,  J=l,  JMAX) ,  K=l,  KT/IAX) 
READ ( ,  2  )  ( (  ( FI  ( I ,  J ,  K ) ,  1=1 ,  ir-IAX ) ,  J=1 ,  Ji-JAX ) ,  K=1 ,  KMAX ) 
READ( ,  2 )  ( ( ( F2  ( I ,  J,  K) ,  1=1 ,  IMAX) ,  J=1 ,  , K=1 ,  KMAX) 

READ(  ,2)  ( ( (F3(I,  J,K),  1=1,  IMAX)  ,J=1,JMAX)  ,K=1,  KMAX) 

1  F0RI-IAT(1X,6I10) 

2  F0RMAT(1X,6E12.4) 


For  3D  body  the  meaning  of  each  variable  is  the  same  as 
2D  flow  and  two  more  READ  statements  for  the  third 
coordinate  Z  and  control  function  F3  are  added. 


B.5.2  GUESS 

The  user  has  two  options  for  INIT  (initial  guess),  one 
is  UXI  (uniform  initial  guess)  and  the  other  is  UPD  (update 
initial  guess).  If  the  user  chooses  Ul'II  then  the  F.4NS-3DEF 
program  will  assume  that  initial  velocity  componenets  are 


and  other  variables  i.e.  p,  k  and  t  are  tero  in 


the 
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whole  domain.  If  UPD  was  chosen,  then  the  user  lias  to 
prepare  a  data  file  GUESS  according  to  following  format. 
The  format  of  GUESS  are 


************************ *******jt^  +  ;  >**  +  **•)  j  +  ■* 

READ(,1)  UI,  VI 

READ( ,2) ( ( (U( I, J,K) , 1=1, IMAX) ,J=1, UMAX) ,K=1,KMAX) 
READ (,2)(((V(I,J,K),I=1, IMAX ) , J=1 , UMAX ) , K= 1 , KMAX ) 
READ( ,2) { ( (W( I , J,K) , 1=1, IMAX) ,J=1, UMAX) ,K=1, KMAX) 
READ( ,2) ( ( (PR( I, J,K) , 1=1 , IMAX) , J=1 , UMAX) , K=1 , KMAX ) 
READ( ,2) ( ( (TK( I, J,K) , 1=1 , IMAX) , J=1 , UMAX ), K=1 , KMAX ) 
READ(,2) ( ( (TD(I,J,K) ,1=1, IMAX), J=l, UMAX) ,K=1, KMAX) 

1  FORMAT ( IX, 6110) 

2  F0RMAT(1X,6E12.4) 


Here  UI,  VI  are  the  velocity  components  of  the  incoming 
flow,  and  U,  V,  W,  PR,  TK,  TD  are  the  three  velocity 
components,  pressure,  turbulent  kinetic  energy  k  and  its 
dissipation  rate  c.  For  laminar  flow,  tlio  user  may  just 
specify  the  turbulent  kinetic  energy  TK  and  its  dissipation 
rate  TD  all  are  zero.  For  2D  or  AXI  flov/,  tlie  user  may  just 
think  KM.AX=1  and  W  velocity  component  is  zero  everywhere. 


B.6  Format  Of  Output _ E_i 3 

There  are  three  options,  TYl,  Ty2  and  TY3  for  the  user 
to  choose.  TYl  creates  a  file  called  'RESULT. 1'.  The 
format  of  RESULT. 1  is  the  same  as  the  input  data  file  GUESS. 
The  reason  for  creating  the  output  lile  RESULT. 1  to  be  the 
same  format  as  the  input  file  GUESS  is  so  that  later 
RESULT. 1  can  be  used  as  the  initial  guess 


lor  other  similar 
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problems,  or  when  the  selected  iteration  number  ITER  is  not 
large  enough  to  obtain  a  converget  solution.  Since  RESULT. 1 
is  designed  for  computer  reading,  it  may  not  be  a  good 
output  format  for  users  to  read.  The  second  option  TY2 
creates  a  file  called  'RESULT. 2'  which  has  a  readable 
format.  They  are 


'k'k'k’k'k-k'kicie’k-kitkieit'kit'ie'kif'ic’k'kie'k-k-kifk’kit-k'k'ieieitie-kie-k-k-k'kic-kic'k'kir'k'k'k-k'k'k 

DO  10  I=1,IMAX 
WRITE(,3)  IT,  I,  X(I) 

WRITE( , 4) 

DO  9  K=1,KMAX 
WRITE (, 5)  K 
DO  8  J=1,JMAX 

WRITE(,6)  U(I, J,K),V{I, J,K),W(I, J,K), 

TK(I, J,K),TD(I,J,K),PR(I,J,K) 
a  CONTINUE 
9  CONTINUE 
10  CONTINUE 

3  FORMAT (//3X, 'NO.  OF  ITERATION=' , 13 , 4X, ' STATION=' , 

13, 4X, 'X=' ,F7.4) 

4  FORMAT ( //4X, 'U  VEL',7X,'V  VEL',7X, 'W  VEL',6X, 

'TURB  KE' ,5X, 'TURB  DISP' ,2X, '  PRESS  '//) 

5  FORMAT(5X, 'AT  K=  ' , 13) 

6  F0RMAT(1X,6E12.4) 

•k'k-k'k'k'k-k'k^'kit'k'k’k'kic'k'k'k'k'k'k'k'k-k'kie'k'k'k’kir’k-k'k'k-kifit’kit-k'ir'k-k-k'k'k-kif'k’k'k'k-k 


The  third  choice  of  the  output  format  is  TY3  which  provides 
both  ' RESULT. 1'  and  'RESULT. 2'  fo/  computer  and  user's 
reading. 


o  o  o 
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c 


_  INTERACTIVE  PROGRAM  (I/O  SYSTEM)  OF  FANS-3DEF 


C.  . 
C.  . 
C 

c** 

c 


c 

c. 

c 

c 


c 

c 


c 

c. 


.  PROGRAMMED  BY  WU-SUN  CHENG 
.  MAY,  1985 


IMPLICIT  REAL*8  (A-H,0-Z) 

CHARACTER* 10  COM,  ARG(5),  CMANDS(IO) 

CHARACTER*10  OPTION(IO),  OPT 
CHARACTER* 10  BLANKS 

CHARACTER*10  GRID,  DIMN,  LORT,  INIT,  TUMS ,  FORM,  YON 
CHARACTER*80  LINE 
CHARACTER  BLANK 
INTEGER  F,  CRT 
LOGICAL  HELP,  ASK 
COMMON/COEFl/  IMAX, JMAX,KMAX 
C0MM0N/C0EF2/  RE , DT , IPRINT , ITER , CNU , AK , E 
C0MM0N/C0RF3/  NA23 ,NSR ,LOT,NTS , INI ,NTY 
C0MM0N/C0EF4/  UI , VI ,M1 ,M2 ,M3 
C0MM0N/UVV('8/  C1,C2,CK,CD 


DATA  BLANK/'  '/,  BLANKS/’ 
DATA  CMANDS(l)  /'RDFILE 
$  CMANDS(3)  /'CHECK 

S  CMANDS(4)  /'RUN 

DATA  OPTION(l)  /'DIMN 

5  OPTION (3)  /'LORT 

$  OPTION (5)  .  'FORM 


7 

'/,  CMANDS(2)  /'RDINT 

7, 

’/,  CMANDS(5)  /'STOP 
'/,  0PTI0N(2)  /'GRID 
’/,  0PTI0N(4)  /'INIT 
'/,  0PTI0N(6)  /’END 


PRINT  WELCOME  MESSAGE 


CALL  LEAD 


CRT=1 

RET=0. 

PN=0. 


0PEN(LTs’IT=8,  FILE= ' FANS_INPUT’ ) 


5  IF(PN  .LT. 

5)  THEN 

PRINT  *,  ' 

t 

PRINT  *,  ' 

Specify  the  following  commands:' 

PRINT  *,  ' 

(RDFILE),  RDINT.  CHECK,  RUN,  STOP' 

PRINT  *,  ' 

1 

PRINT  *,  ' 
ENT)  IF 

Command  is  > 

INITIALIZE  'LINE'  AND  'COM'  TO  ALL  BLANKS 


/. 


7 

7, 

7, 

7 


n  n  o 
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C 

F=1 

DO  6  1=1,80 
6  LINE(I:I)=BLANK 
COM=BLANKS 
C 

READ(CRT,1000)  LIKE 
IF(RET  .LT.  5.)  WHITE (8 , 1000)  LINE 
C 

C. . . .  GET  THE  FIRST  WORD  FROM  THE  LINE  {WHICH  IS  COMMAND) 

C 

CALL  PARSECLINE,  COM,  F,  LENGTH) 

C 

C. . . .  IGNORE  AN  ALL  BLANK  LINE 
C 

IF  (LENGTH  .EQ.  0)  GO  TO  5 
C 

C. . . .  FIND  OUT  COMMAND  AND  EXECUTE  IT 
C 

C....  COMMAND  1,  READ  FROM  DATA  FILE 
C 

IFCCOMCl: LENGTH)  .EQ.  CMANDS(l) (1 : LENGTH) )  THEN 
CRT=8 
RET=9. 

C 

PRINT  *,  'Do  you  want  to  see  the  procedure  on  the  terrain 
1  PRINT  *,  '  Answer  is  >  ’ 

READ(1,1000)  YON 
IF(Y0N(1:1)  .EQ.  'Y')  THEN 
PN=0. 

ELSE  IF(Y0N(1:1)  .EQ.  'N')  THEN 
PN=9. 

ELSE 

PRINT  *,  '  Please  use  Y  or  .N  ' 

GO  TO  1 
END  IF 
C 

GO  TO  5 

....  COMMAND  2 ,  READ  FROM  INTERACTIVE  TERMI.NAL 


ELSE  IFCCOMCl: LENGTH)  .EQ.  CMANDS ( 2 )( 1 : LENGTH ) )  THEN 
20  IFCPN  .LT.  5)  THEN 
PRINT  ' 

PRINT  *,  'Specify  the  following  options:' 

PRI.NT  *,  '  --  DI.MN  (2D,  AXI .  3D)’ 

PRINT  *,  '  --  GRID  (STA,  REG)' 

PRINT  *,  '  --  LORT  (LAM.  TUR)' 

PRI.NT  *,  '  --  INIT  (UNI,  UPD)' 

PRI.NT  *,  '  --  FORM  (TYl,  TY2,  TY’3)' 

PRINT  E.NT)  To  leave  RDINT' 


o  o  o  o 


END  IF 
C 
C 

F=1 

IF(PN  .LT.  5)  THEN 
PRINT  *,  '  ' 

PRINT  *,  '  Option  is  >  ' 

END  IF 
C 

C _  INITIALIZE  'LINE'  AND  'OPT'  TO  ALL  BLANKS 

C 

DO  16  1=1,80 

16  LINE(I:I)=BLANK 
DO  17  1=1,5 

17  ARG(I)=BLANKS 
OPT=&LANKS 

C 

READ  (CRT,  1000)  LIN'D 
IF(RET  .LT.  5.)  WRITE  (8 . 1000)  LI.NE 
C 

C....  GET  'THE  FIRST  WORD  FROM  THE  LINE  (WHICH  IS  OPTION) 

C 

CALL  PARSE(LINE,  OPT,  F,  LENGTH) 

....  FIN'D  OUT  OPTION  AND  EXECUTE  IT 

....  OPTION  1,  SPECIFY  DIMENSION 
C 

IF(0PT(1: LENGTH)  .EQ.  OPTION( 1) ( 1 : LENGTH) )  THEN 
CALL  ARGCHK(LINT,  ARG,  1,  F,  HELP) 

IF(HELP)  GO  TO  20 

DIMN=BLANKS 

DIMN=ARG(1) 

IF(DIMN(1:2)  .EQ.  '2D'  .OR.  DIMN(1:3)  .EQ.  'AXI') 
NA23=1 

IF(DIMN(1:2)  .EQ.  '2D')  .NA23=2 
IF(PN  .LT.  5)  THEN 

PRINT  *,  '  TYPE  VALLXS  FOR  I.MAX ,  JMAX,  ITER  ,RE  ,DT' 
PRINT  *,  '  They  are  >  ' 

EN'D  IF 

READ(CRT,*)  AI.MAX.AJMAX,AITER,RE,DT 

IMAX=AI.MAX 

JMAX=AJMAX 

KMAX=3 

ITER=AITER 

IF(RET.LT.5)  U'RITE (8 . 2500 )  I.MAX ,  JMAX ,  ITER , RE , DT 
ELSE  IF{DIMN{1.2)  .EQ  '3D')  THEN 
IF(PN  .LT.  5)  THEN 

PRI.ST  'TY'PE  VALL'ES  FOR  IMAX ,  JMAX  ,XMAX ,  ITER  ,RE 
PRI.ST  *,  '  They  are  >  ' 

END  IF 
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READ  (CRT ,  * )  AIMAX ,  AJMAX ,  AKMAX ,  AITER ,  RE.,  DT 

IMAX=AIMAX 

JMAX=AJMAX 

KMAX=AKMAX 

ITER=AITER 

IF ( RET . LT . 5 )  WRITE ( 8 , 2000 ) IMAX„ JMAX , KMAX„ ITER „RE 
ELSE 

WRITE (1,3000) 

END  IF 

OPTION  2,  SPECIFY  GRID  SYSTEM 

ELSE  IF(0PT(1: LENGTH)  .EQ.  OPTION (2) ( 1 : LENGTH) )  THEN' 
CALL  ARGCHK(LINE,  ARG,  1,  F,  HELP) 

IF(HELP)  GO  TO  20 

GRID=BLANKS 

GRID=ARG(1) 

IF(GRID(1;3)  .EQ.  'STA')  THEN 
IF(PN  .LT.  5)  THEN 

PRINT  *,  '  Using  staggered  grid  system  ' 

END  IF 

ELSE  IF(GRID(1;3)  .EQ.  ’REG’)  THEN 
IF(PN  .LT.  5)  THEN 

PRINT  *,  '  Using  regular  grid  system  ' 

END  IF 
ELSE 

WRITE (1,3000) 

END  IF 

OPTION  3,  CHECK  LAMINAR  OR  TURBULENCE 

ELSE  IF(OPT(l: LENGTH)  .EQ.  OPTION( 3) ( 1 : LENGTH) )  THEN 
CALL  ARGCHK(LINE,  ARG,  1,  F,  HELP) 

IF(HELP)  GO  TO  20 

LORT=BLANKS 

L0RT=ARG(1) 

IF(LORT(l:3)  .EQ.  'LAM')  THEN 
LOT=l 
GO  TO  20 

ELSE  IF(LORT(l:3)  .EQ.  'TUR')  THEN 
LOT=2 

IF(PN  .LT.  5)  THEN 

PRINT  *,  '  Please  type  ONE  for  one-scale  or  TWO 
PRINT  ",  '  two-scale  turbulence  model' 

PRINT  '  It  IS  >  ' 

END  IF 

READ (CRT, 1000)  TUMS 

IF(RET  .LT.  5)  WRITE(8 , 1000)  TUMS 


C. . . .  NEAR  WALL  COEFFICIENTS 
C. 

CNU=0 . 09D0 
AK=0.41D0 
E=9 . DO 


C 

C . . . .  TURBULENCE  SCALE 
C 

IF(TUNS(1:3)  .EQ.  'ONE')  THEN 
NTS=1 
CK=1.D0 
CD=1.3DO 
C1=1.44D0 
C2=1.92DO 

ELSE  IF(TUMS(1:3)  .EQ.  'TWO')  THEN 
NTS=2 
CK=l.DO 
CD=0.045D0 
DRE=l.DO/DSQRT(RE) 

Cl=17.5DO*DRE 

C2=18.9D0*DRE 

END  IF 

ELSE 

WRITE (1,3000) 

END  IF 
C 

C....  OPTION  4,  SPECIFY  INITIAL  GUESS 
C 


n 


ELSE  IF(0PT(1: LENGTH)  .EQ.  0PTI0N(4) ( 1 : LENGTH) )  THEN 
CALL  ARGCKK(LINE,  ARG,  1,  F,  HELP) 

IF (HELP)  GO  TO  20 
I  NT  T= BLANKS 
INIT=ARG(1) 


■  LT. 


IF(INIT(1:3) 
INI=1 
IF(PN 
PRINT 
PRINT 
PRINT 
PR  I. NT 
PRINT 


.EQ.  'UNI')  THEN 


5)  THEN 

Now  the  velocity  components  are  uniform 
other  variables  are  zero  in  the  whole  d 
Please  type  the  values  for  velocity  com 
of  incoming  flow,  that  is;  LT ,  VT . ' 

They  are  >  ' 

READ(CRT,*)  UI,  VI 
IFfRET.LT.5)  WRITE(8 , 1500)  LT  ,  VT 
END  IF 

LSE  IF(INTT(1;3)  .EQ.  'LPD' )  THEN 
INT  =  2 


iF(?N  .LT.  5)  THEN 

PRINT  ",  '  Please  make  sure  you  have  a  data  file  c 
PR  I. NT  *,  '  GUESS.' 

E.ND  IF 


noon  n  non 
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ELSE 

WRITE (1,3000) 

END  IF 
C 

C....  OPTION  5,  SPECIFY  OUTPUT  FILES 
C 

ELSE  IF(0PT(1: LENGTH)  .EQ.  0PTI0N(5 )( 1 ; LENGTH) )  THEN 
CALL  ARGCHKCLINE,  ARG,  1,  F,  HELP) 

IF(HELP)  GO  TO  20 
FORM=BLANKS 
FORM=ARG(l) 

IF(FORM(l:3)  .EQ.  'TYl')  THEN 
NTY=1 
GO  TO  57 

ELSE  IF(FORM(l;3)  .EQ.  'TY2‘)  THEN 
NTY=2 
GO  TO  57 

ELSE  IF(F0R.M(1;3)  .EQ.  'TY3’)  THEN 
NTY=3 
GO  TO  57 
ELSE 

WRITE (1,3000) 

GO  TO  20 
END  IF 

57  IF(PN  .LT.  5)  THEN 

PRINT  *,  '  Type  number  of  iterations  per  output' 
PRINT  '  It  is  >  ' 

ENT)  IF 

READ(CRT,*)  AIT 
IT=AIT 
IPRINT=IT 

IF(RET  .LT.  5)  WRITE(8 , 2000)  IT 
-  OPTION  6,  LEAVE  RDINT 

ELSE  IF(OPT(l: LENGTH)  .EQ.  OPTION(6) ( 1 : LENGTH) )  THEN 
GO  TO  5 
ELSE 

PRINT  *,  '  ^^INTALID  OPTION,  CHECK  MANTAL! ' 

END  IF 

GO  TO  20 


-  COM.MA.N'D  3,  CHECK  ISTORMATION 

ELSE  IF(C0M(1;  LENGTH)  .EQ.  CHANTS ( 3 )( 1 ;  LE.NGTH ) )  THEN 
PRINT  ' 

PRINT  ",  '  FA.NS-3DEF  will  run  under  the  following  cond 
PRINT  ' 


n  o 


PRINT  *, 
PRINT  *, 
PRINT  *, 
PRINT  *, 
PRINT 
PRINT  *, 
PRINT  *, 
PRINT  *, 


--  DIMN  is:',  DIMN 
--  GRID  is:',  GRID 
--  LORT  is:',  LORT 
--  TUNS  is: '  ,  TUMS 
--  INIT  is:',  INIT 

**  UI=',  UI,  '  VI=',  VI 

--  FORM  is;',  FORM 

**  at', IT,'  iteration' 


PRINT  4000,  IMAX,JMAX,KMAX,ITER,RE,DT 

.  COMMAND  4,  CALL  MAIN  PROGRAM 

ELSE  IF(C0M(1: LENGTH)  .EQ.  CMANDS (4) ( 1 : LENGTH) )  THEN 
IF(NA23  .EQ.  2)  THEN 
CALL  MAIN2D 
ELSE 

CALL  MAIN3D 
END  IF 


.  COMMAND  5,  STOP  THE  PROGRAM 


ELSE  IF(COM(l: LENGTH)  .EQ.  CMANDS ( 5 )( 1 : LENGTH ) )  THEN 
PRINT  ' 

PRINT  *.  '  BYE  NOW  ! !  ' 


PRINT  *, 
PRINT  *, 
PRINT  *, 
PRINT  *, 
PRINT  *, 
CLOSE  (8) 
CALL  EXIT 


--  Thank  you  for  using  FANS-3DEF 


ELSE 

PRINT 


TN'\'ALID  COMMAND.  CHECK  MANDAL!  ’ 


END  IF 


GO  TO  5 


1000  FORMAT(A) 

1500  FORMAT (6F8. 4) 

2000  F0RMAT(4I3.2E12.4) 

2500  FORMAT(3I3,2E12.4) 

3000  FORMAT(3X,  '  ^triNVAID  ARGUMENT.  CHECK  MAN^■AL!'^ 
iOOO  F0RMAT(3X,'IMAX='.I3.3X,'JMAX=' . 13 . 3X . ' KMAX= ' ,:3,3X,'rTE 
S  /3X, 'RE=' ,E12.^.3X. 'DT=' .£12.4) 

END 


SUBROUTINE  LEAD 
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SUBROUTINE  LEAD 
CHARACTER*60  B(17) 
INTEGER  I 
B(l)=' 

B(2)=' 

B  (  3  )  =  '  *****■*-*■***■: 

B(4)='  * 

B(5)='  * 

B(6)='  * 

3(7)='  * 

3(8)='  * 

3(9)='  * 

B(10)='  *  If 

3(11)='  * 

3(12)='  * 

3(13)='  * 

B(U)='  * 

3(15)='  * 

3(16)='  * 

3(17)='  *^****** 


WELCOME  TO  USE  RESEARCH  CODE 
FANS-3DEF 
Version. 1  1986 

If  you  have  any  coaimencs  or  suggestions 
please  inform 

Prof.  C.J.  CHEN  (2216EB) 

The  University  Of  Iowa 
Iowa  City,  Iowa  52242 
(319)  353-4473 


DO  10  1=1,17 
PRINT  100,  3(1) 
CONTINUE 

FORMAT(A) 

RETUR.N 

END 


SUBROUTINE  ARGCHK 


CHECKS  TO  SEE  IF  NDNBER  OF  .ARGUME.NTS  SPECIFIED  IS  EQUAL 
TO  'NDMARG'.  IF  NOT.  THE  USER  IS  PROMPTED  FOR  NECESSARY 
.ARGUMENTS.  IF  ANY  OF  THE  .ARGUMENTS  IS  'KELP',  THE  HELP 
FLAG  IS  RETUR.NED  'TRUE'.  ’NXTCOL’  IS  THE  LOCATION  IN' 
'LI.NT'  WHERE  SEARCH  FOR  THE  .ARGUMENTS  BEGINS. 


SUBRCUTINX  .ARGCHK  (LINE.  ARG,  .N'UMARG,  NKTCOL.  KELP) 
IMPLICIT  REALMS  (A-H.  0-Z) 

INTEGER  CRT,  N'XTCOL,  ST.ART,  NARG 
CHARACTER* (30)  LI.NE 
CHARACTER* 10  ARG( 10) ,  BLANKS 
LOGICAL  HELP 


o  o  o  or) 


DATA  CRT/1/ 

DATA  BLANKS/'  '/ 

NARG=1 
HELP=. FALSE. 


100  START=NARG 


.  . . .  GET  THE  NEXT  ARGUMENT 


DO  no  I=START,  NUMARG 

CALL  PARSE(LINE,  ARG(I),  NXTCOL,  LENGTH) 

IFCLENGTH  .EQ.  0)  GO  TO  120 

IF(ARG(I)  (1:4)  .EQ.  'HELP')  HELP=.TRUE. 

NARG=NARG+1 

110  continxt: 

C 

C....  RETURN  BECAUSE  ALL  ARGUMENTS  ARE  SPECIFIED 
C 

RETTIRN 


C 

C....  REACH  HERE  IF  SOME  ARGUMENTS  ARE  MISSING 
C 

120  IF  (HELP)  RETUUN 
C 
C 

WRITE (CRT, 2000)  NARG,  NUMARG 
2000  FORMATC  .NEED  SELECTIO.NS  ',12,'  THROUGH  ’,12) 
PRINT  *,  '  Selections  ' 

C 

C 

READ  (CRT,  1000)  LINTE 
1000  F0RMAT(A80) 

NXTC0L=1 
GO  TO  100 
C 

END 

C 


C....  SUBROUTINE  PARSE 
C 

C*^r-****************":-:*-*****-r***^tTr*-:**-*************** 

C 

C _  PARSES  THE  'LINE'  AND  RETURNS  NEXT  'WORD'  WHICH  IS  '  LENG 

C _  LO.NG.  IF  THE  WORD  IS  LONGER  THAN  'MAINLEN'  CHARACTERS  THE 

C _  EXTRA  CHARACTERS  .ARE  IGNORED. 

C 

SUBROUTINE  PARSE  (LINE.  WORD,  .NXTCOL.  LENGTH) 

IMPLICIT  REAL*8  sA-H.O-Z) 


o  o 
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PARAMETER  (MAXLEN=10) 
CHARACTER  *(*)  LINE 
CHARACTER  *(*)  WORD 
CHARACTER  BLANK,  COMMA 
LOGICAL  FIRST 

DATA  BLANK/ '  ' / ,  COMMA/ ’ , '/ 


LENGTH=0 

IST=NXTCO’ 

FIRST=.TRL'E. 

C 

DO  90  I=1,MAXLEN 
VORD(I:I)=BLANK 
90  CONTINUE 
C 
C 

DO  100  I=IST,LEN(LIN'E) 

N'XTCOL=I 

C 

IF(LINE(I:I)  -EQ.  BLANK  .OR.  LINE(I:I)  .EQ.  COMMA)  THE 
IF  (..NOT.  FIRST)  RETURN 
GO  TO  100 
ELSE 

FIRST=. FALSE. 

IF (LENGTH  .LT.  MAXLEN)  THEN 
LENGTH=LENGTH+1 
WORD ( LENGTH : LENGTH ) =LINE ( I : I ) 

END  IF 
ENT  IF 
100  CONTINXT 
C 

RETURN 

ENT) 

C 

C 

C .  .  .  .  SUBROLTINT  .'LAIN2D 

r 

C--.r*rT*rrt^****-:**-r*T^*********T:Tr***********:i^***tt* 

C _  MAIN2D  IS  USED  TO  SOLVE  2D  FLAT  PLAT  PROBLEM 

C _ WITH  A.NGLE  OF  ATT.JiCK 

SUBROUTINE  MAIN 
IMPLICIT  REALMS  (A-H.O-Z) 

5I.NSERT  3 LOCK. MAIN 

COMMON, COEF i  '  IE . JE . KE 

COMMON, COEF:,'  ARE. .-IDT.  IPRINT.  ITER .CNUU . AKK .EE 
COMMON, C0EF3/  .NA23  ..NSR ,  LOT, NTS .  INITIAL, .NTY 
CG.M.MQN,  COEFi/  LT  .  VI  .Mi  ,M2  .M3 
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DIMENSION  UL(99),  UTL(99),  TAUW(99),  NT2(2) 
COMMON/ BO 1/  UB0(82,44) 

C0MM0N/B02/  VB0(82,44) 

C0MM0N/B03/  PRB0(82,44) 

COMMON/ B04/  TKB0(82,44) 

COMMON/ BOS/  TDB0(82,44) 

OPEN(6,FILE=' DATA. IN') 

NNX=IE-1 

NNY=JE-1 

RE=ARE 

DT=ADT 

NB1=M1 

NB3=M2 

NB2=M3 

11=49 

RET=RE/DT 

NT2(1)=NB2 

NT2(2)=NB2 

JE2=JE+2 

JE3=JE+3 

C—  CALL  BFC  TO  CALCULATE  BODY -FITTED  COORDINATE 

CALL  BFC 

ABC=0. 33206 

DO  35  I=NB1+1,NB3 

XX=X(I,2) 

REX=DSQRT(RE*XX) 

UTL(I)=DSQRT(ABC/REX) 

35  CONTINUE 

DO  33  1=19,29 
33  UL(I)=1.0*UI 
UL(30)=0.9994*UI 
UL(31)=0.9852*UI 
UL(32)=0.9250*UI 
UL(33)=0.8200*UI 
UL(34)=0.7050*UI 
UL(35)=0.6027*UI 
UL(36)=0.5275*UI 
UL(37)=0.4862*UI 
C 

IF(  INITIAL  .EQ.  1  )  TrfEN 
DO  20  1=1, IE 
DO  20  J=l,44 
UBO(I ,J)=UI 
VBO(I ,J)=VI 

IF(fI.GE.NBl.AND.I.LE..NB3).AND. 

(J.EQ.2.0R.J.EQ.JE2))  THEN 
UBO(I.J)=0. 


S 
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VB0(I,J)=0. 

END  IF 

PRBO(I,J)=O.DO 
TKB0(I,J)=l.D-9 
TDB0(I,J)=l.D-9 
20  CONTINUE 
ELSE 

PRINT  *,  'READ  GUESS' 

OPEN ( 10 , FILE= ' GUESSP ' , STATUS= ' OLD ' ) 

OPEN ( 1 1 , FILE= ' GUESSU ' , STATUS= ' OLD ' ) 

OPEN ( 12 ,FILE= ' GUTSSV ' , STATUS= ' OLD ’ ) 

OPEN  ( 14 ,  FILE= '  GU-ESSKD '  ,  STATUS= '  OLD  ‘  ) 

READ  (10,2400)  ((  PR(I , J) , 1=1 , IE  ),  J=2,JE  ) 

READ  (11,2400)  (  (  U(I , J) ,1=1 , IE  ),  J=2,JE  ) 

READ  (12,2400)  (  (  V(I , J) ,I=1,IE  ),  J=2,JE  ) 

READ(U,2400)  ((  TK(I ,  J)  ,I=1,IE)  ,  J=2,JE  ) 

R£AD(14,2400)  ((  TD(I , J) , 1=1 , IE) ,  J=2,JE  ) 

CLOSE (10) 

CLOSE (11) 

CLOSE (12) 

CL0SE(14) 

END  IF 

DO  60  1=1, IE 
DO  60  J=2,JE 
DU(I,J)=0.0 
DV(I,J)=0.0 
DS(I,J)=0.0 
DST(I,J)=0.0 
PP(I,J)=0.0 
60  CONTINUE 

PRINT  *,  'BEGIN' 

OPEN ( 7, FI LE=' RESULT') 

0PEN(5,FILE='EPST') 

0PEN(15,FILE='DATAP') 

0PEN(16,FILE='DATAU') 

0PEN(17,FILE=’DATAV') 

0PEN(18,FIL£='DATAKD') 

OPEN ( 19 , FILE= ' DATAEV ' ) 

0?EN(20,FILE=' DATA. ADD ' ) 

ITC=0 

ITC1=0 

ID=0 

C .  .  .  .  ITEPJiTION  LOOP 

JMM=8 

JMN=JMN-1 

DO  999  IT=1.I7ER 
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ITC=ITC+1 
ITC1=ITC1+1 
DO  888  IBO=l,2 
IF(IBO.EQ.l)  THEN 
DO  235  1=1, IE 
DO  234  J=2,JE 
U(I,J)=UBO(I,J) 
V(I,J)=-VBO(I,J) 
PR(I,J)=PRBO(I,J) 
TK(T  J)=TKBO(I,J) 
TD' ; ,J)=TDBO(I,J) 

234  CONTINUE 
U(I,l)=UBO(I,JE3) 
V(I,l)=-VBO(I,JE3) 
PR(I,l)=PRBO(I,JE3) 
TK(I,l)=TKBO(I,JE3) 
TD(I,l)=TDBO(I,JE3) 

235  CONTINUE 

DO  236  1=1, IE 

236  V(I,JE)=-VI 
DO  237  J=1,JE 
V(NNX,J)=-VI 

237  V(IE,J)=-VI 
ELSE 

DO  345  1=1, IE 
DO  344  J=2,JE 
JJ=J+JE 

U(I,J)=UBO(I,JJ) 

V(I,J)=VBO(I,JJ) 

PR(I,J)=PRBO(I,JJ) 

TK(I,J)=TKBO(I,JJ) 

TD(I,J)=TDBO(I,JJ) 

344  CONTINUE 
U(I,l)=UBO(I,3) 
V(I,l)=VBO(I,3) 
PR(I,l)=PRBO(I,3) 
TK(I,l)=TKBO<'I,3) 
TD(I,l)=TDBO(I,3) 

345  CONTINUE 

DO  346  1=1, IE 

346  V(I,  •^.)=VI 

DO  347  J=1,JE 
V(NNX,J)=VI 

347  V(IE,J)=VI 
END  IF 

DO  456  1=1, IE 

DO  456  J=1 , JE 

RU(I,J)=U(!,J) 

RV(I,J)=V(I,J) 

RPRfI,J)=PRfI,J) 

RTX(I,J)=TK(1,J) 
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456  RTD(I,J)=TD(I,J) 

NB2=OT2(IB0) 

DO  10  1=1, IE 
JB(I)=JMM 

IF(I.LT.NB2.0R.I.GT.NB3+1)  JB(I)=3 
10  CONTINUE 

DO  30  I=NB2,IE 
DO  30  J=2,JE 

IF(TD(I,J).LT.l.D-9)  TD(I ,J)=l.D-9 
EV(I,J)=TK(I,J)*TK(I,J)/TD(I,J)*CNU 
30  CONTINUE 

CALL  CHECK(EV,6,IE,JE) 

DO  50  I=NB2,IE 
DO  50  J=5,JE 

IF(EV(I,J-l).LE.EV(I,J-2)  .AND.  EV(I, J-1) .LT.EV(I , J)) 
$  EV(I,J)=EV(I,J-1) 

50  CONTINUE 

DO  90  I=NB2-1,1,-1 
DO  90  J=2,JE 
TK(I,J)=TK(I+1,J)*0.8 
TD(I,J)=TD(I+1,J)*0.8 
EV(I,J)=EV(I+1,J)*0.8 
90  CONTINUE 


C  CALL  BFC(IBO) 


C---  CALCULATE  THE  MOMENNTUM  EQUATIONS 
CALL  SVEL 

C---  CALCUUTE  THE  PRESSURE  CORRECTION 
CALL  PRESS (2) 

C---  COMPUTE  THE  PSEUDO -VELOCITY  FIELD 
CALL  HVEL 

C---  CALCULATE  THE  PRESSURE  FIELD 
CALL  PRESS (  1  ) 

C---  CALCULATE  TUTIBULENT  VARIABLES 


CALL  STKD 


END  OF  ONE  SWEEP 
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C-- 


WRITE(1,2500)  NB2 
WRITE (5, 2500)  NB2 
IF(IT  .GT.  2)  THEN 

IF(U(NB2,JMN)  .LT.  UL(NB2+1))  NB2=NB2+1 
IF(U(NB2,J11N)  .GT.  U(NB2-1, JMN))  NB2=NB2-1 
END  IF 


C 

C 

C 


*  RESULTS 


WRITE(7,4111)  IT 

4111  F0RMAT(/5X,'N0.  OF  ITERATION  =’,  15 ,5X,  ' PRT. .  DIS .' ) 
WRITE(7,2400)  (PR(I ,2) , 1=1 , IE) 

WT1ITE(7,4112) 

4112  FORMAT (/5X, 'SKIN-FRICTION  COEFFICIENT  ') 

DO  4222  I=NB1+1,NB3 

IF(I.LT.NB2)  THEN 
UT=UTL ( I  )--nj  ( I ,  JMN )  /UL ( I ) 

ELSE 

UT=UTA(I) 

END  IF 

TAUW(I)=2.*UT*UT 
4222  CONTINUE 

WRITE(7,2400)  (TAUW(I) , I=NB1+1 ,NB3) 

WRITE(7,4113) 

4113  FORMAT (/5X, 'CENTERLINE  VELOCITY') 

WRITE(7,2400)  (U(I ,2) ,I=NB3+1,IE) 

550  IFCITCl  .EQ.  IPPINT)  THEN 

PRINT  *.  'WRITE  RESULT' 

DO  123  1=15,70 

C  IF(I.GT.30.AND.I.LT.45)  GO  TO  123 
WT1ITE(7,2000)  IT,  I,  X(I,2) 

WRITE (7, 2 100) 

DO  110  J=2,JE 

WRITE(7,2400)  U(I,J) ,V(I , J) ,PR(I , J) ,TK(I , J) ,TD(I , J) ,EV(I 

no  continlt: 

123  CONTINUE 

C -  WRITE  SHEAR  STRESS,  MOMENTUM  THICKNESS,  REYOLNTIS  STRESS 

DO  120  1=1, NNX 
UVOSd  ,2)=0.0 
U'VOSd  ,JE)=0.0 
THATd)=0.0 
DO  120  J=3,.NNY 
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THAT(I)=THAT(I)+(U(I,J)-U(I,J)*U(I.J))*(Y(I,J)-Y(I,J-1)) 

TD11=B11(I,J)/DSJ(I,J) 

TD22=B22(I,J)/DSJ(I,J) 
UV0S(I,J)=EV(I,J)*((U(I,J+1)-U(I,J))*TD22 
$  +(V(I,J)-V(I-1,J))*TD11) 

120  CONTINUE 

WRITE (20, 2400)  (UTA(I) , 1=1 ,NNX) 

WRITE (20, 2400)  (THAT(I),  1=1, NNX) 

WRITE (20, 2400)  ((UVOS(I ,J) ,I=2,NNX) ,J=2,JE) 

END  IF 


IF(ITC.EQ.IPRINT)  THEN 
WRITE (15, 2300)  IT 
WRITE (16, 2300)  IT 
WRITE (17, 2300)  IT 
WRITE (18, 2300)  IT 
WRITE (19, 2300)  IT 

WRITE (15, 2400)  ( (PR(I , J) , 1=1 , IE) , J=2, JE) 
WRITE (16, 2400)  ((  U(I , J) , 1=1 , IE) , J=2, JE) 
WRITE (17, 2400)  ((  V(I , J) , 1=1 , IE) , J=2, JE) 
raiTE(18,2400)  ((TK(I,J),I=1,IE),J=2,JE) 
WRITE (18, 2400)  ( (TD(I , J) , 1=1 , IE) , J=2, JE) 
W'RITE(19,2400)  ((EV(I , J) ,  1=1 , IE) , J=2, JE) 

IF  (ID.EQ.l)  GO  TO  500 


END  IF 


EPSU=0 . 0 
EPSV=0 . 0 
EPSP=0.0 
EPTK=0 . 

EPTD=0 . 

EPDS=0 . 0 
DO  150  1=1, IE 
DO  150  J=2,JE 
EPS2=RU(I,J)-U(I,J) 

IF(DABS(EPS2) .GT.DABS(EPSU))  THEN 

E?SU=EPS2 

NU=I 

ML'=J 

END  IF 

EPS2=RV(I,J)-V(I,J) 

IF(DABS(EPS2) .GT.DABS(EPSV))  THEN 

E?SV=EPS2 

SV=I 

MV=J 

ENT)  IF 

E?S2=RPR(I,J)-PR(I,J) 


247 


IF(DABS(EPS2).GT.DABS(EPSP))  THEN 

EPSP=EP32 

NP=I 

MP=J 

END  IF 

IF(DABS(DST(I,J)).GT.EPDS)  THEN 
EPDS=DABS(DST(I,J)) 

NDT=I 
MDT=J 
END  IF 

IF(I.LT.NB2)  GO  TO  150 
EPS2=RTK(I,J)-TK(I,J) 

IF (DABS (EPS2).GT. DABS (EPTK))  THEN 

EPTK=EPS2 

NK=I 

MK=J 

END  IF 

EPS2=RTD(I,J)-TD(I,J) 

IF(DABS(EPS2) .GT.DABS(EPTD))  THEN 

EPTD=EPS2 

ND=I 

ND=J 

END  IF 

150  CONTINUE 

WRITE(1,1100)  EPSU,NU,MU,  IT 
WRITE (5, 1100)  EPSU,NU,MU,IT 
WRITE (1,1200)  EPSV,  NV,  MV 
WRITE(5,1200)  EPSV, NV, MV 
WRITE(1,1300)  EPSP,NP,MP 
WRITE (5, 1300)  EPSP,NP,MP 
WHITE (1,1400)  EPTK,NK,MK 
WHITE (5, 1400)  EPTK,NK,MK 
WHITE(1,1500)  EPTD,ND,MD 
WHITE (5, 1500)  EPTD,ND,MD 
WRITE (1,1600)  EPDS,  NDT,  MDT 
WRITE (5, 1600)  EPDS,  NDT,  MDT 


IF (DABS (EPSU) . LT . EPST . AND . DABS (EPSV) . LT . EPST . AND . DABS (EP 
+.LT.EPST)  THEN 
ITC=IPRINT 
ID=1 

GO  TO  550 
END  IF 

NT2(IBO)=SB2 
IFdBO.EQ.  n  THEN 
DO  788  1=1, IE 
DO  788  J=i,JE 
UBO(I,J)=f(I ,J) 


VBO(I,J)=-V(I,J) 

PRBO(I,J)=PR(I,J) 

TKBO(I,J)=TK(I,J) 

TDBO(I,J)=TD(I,J) 

788  CONTINUE 
ELSE 

DO  799  1=1, IE 
DO  799  J=1,JE 
JJ=J+JE 

UBO(I,JJ)=U(I,J) 

VBO(I,JJ)=V(I,J) 

PRBO(I,JJ)=PR(I,J) 

TKBO(I,JJ)=TK(I,J) 

TDBO(I,JJ)=TD(I,J) 

799  CONTINUE 
END  IF 
888  CONTINUE 

IF(ITC.EQ.IPRINT)  ITC=0 
IF(ITCl.EQ.IPRINT)  ITC1=0 
DO  899  1=1, IE 

IF(I.GE.NB1.ANT).I.LE.NB3)  GO  TO  899 
UU=.5*(UBO(I,3)+UBO(I,JE3)) 
W=.S*(VBO(I,3)+VBO(I,JE3)) 
PM=.S*(PRB0(I,3)+PRB0(I,JE3)) 

TKA= . 5* (TKBO (I , 3 )+TKBO ( I , JE3 ) ) 

TDA= . 5* (TDBO ( I , 3 )+TDBO ( I , JE3 ) ) 
UBO(I,2)=UU 
VBO(I,2)=W 
PRBO(I,2)=PM 
TKBO(I,2)=TKA 
TDBO(I,2)=TDA 
UBO(I,JE2)=UU 
VBO(I,JE2)=W 
PRBO(I,JE2)=PM 
TKBO(I,JE2)=TKA 
TDBO(I,JE2)=TDA 
899  CONTIN-UE 

999  CONTIN-UE 

CLOSE (6) 

CLOSE (7) 

CLOSE (5) 

CLOSE (15) 

CLOSE (16) 

CLOSE (17) 

CLOSE (18) 

CLOSE (19) 

CLOSE (20) 

C---  ENT)  OF  PROGRAM 


o  n  n 
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FORMAT 


FORMAT(2X,'RE=' ,E10.5,'  DT=’,F10.5,'  IE=',I3,'  JE=',I3, 
$'  ITER=M3,'  111=', 13,’  11=' ,13,/, 'NB1=' ,13,  ’  NB3=',I3, 
$'  ISCALE=' ,13, '  INITIAL=' ,13, '  EPST=' ,F10 . 5) 


1100 

FORMAT (/3X 

,  'EPSU=' ,F10.5,  ' 

I=’,I5 

,'  J=',I5 

1200 

FORMAT (3X, 

'EPSV=' ,F14.5,  ' 

I=M5, 

■J=M5) 

1300 

FORMAT (3X, 

'EPSP=' ,F10.5, ' 

I=M5, 

’J=',I5) 

1400 

FORMAT (3X, 

'EPTK=' ,F10.5,’ 

I=M5, 

'J=M5) 

1500 

FORMAT (3X, 

'EPTD=' ,F10.5, ' 

I=M5, 

'J=’ ,15) 

1600 

FORMAT (3X, 

'DT=  ',F10.5,' 

I=M5, 

’J=M5) 

FORMAT (1 OX, 'NO.  OF  ITERATION=' ,I3,4X, 'STATION=' ,13, 

S  4X,  'X=' ,  F10.5) 

FORMAT(5X,'U  VEL' ,  8X,'V  VEL' ,8X, 'PRESSURE' ,5X, 'TK' , 
S  8X,'TD' ,14X,'EV') 

FORMAT (24X,  13) 

FORMAT(6E13.4) 

FORMATC START  POINT  OF  TURBULENT  FLOW  ---',15) 


RETU-RN 

END 


c 

c . 

c 

c. .  .  . 
c. .  .  . 


BLOCK. MAIN 


BLOCK. MAIN  IS  THE  COMMON  BLOCK  USED  IN  THE  2D 
FLAT  PLATE  PROBLEM 
COM.MON/COR1/  X(82,22),  ¥(82,22) 

C0MM0N/C0R2/  Bll(82,22),  B12(82,22) 
COMMON/COR3/  B21(82,22),  822(82,22) 
C0MM0N7C0R4/  Fl(82,22),  F2(82,22),  DSJ(82,22) 


COMMON/VELi/  U(82,22),  V(82,22) 

C0MM0N/VEL2/  US(82,22),  VS(82,22) 

COMMON/VEL3/  rri(82,22),  VH(82,22) 

COMMON/PREl/  PR(82,22),  PP(82,22) 

C0.MM0N/PRE2/  AN(82,22),  AS(82,22),  AE(82,22),  .AW(82,22) 
CO.MMON/PRE3/  AP(82,22),  DS(82,22),  DST(82,22) 

COMMON/COEl/  EB(82,22),  EC(82,22),  EE(82,22),  EF(82,22) 
COMMON /COE 2/  EH (82, 22) 

C0MMCN/C0E3/  SU(82,22),  SV(62,22),  SK(82,22),  SD(82.22) 


COMMCN/FAEi/  ZSf82,22),  ZN(82,22),  ZV(82.22),  ZE(82,22) 
COMMCS/F.AE2/  ZSW(82,22).  ZSE(S2,22K  ZNW782,22).  ZNE(82, 
COMMON,  F.AE3  ZC(  82,22),  DU(82,22),  DV(82.22) 


o  o  o  o 


COMMON/CALI/  RE,  DT,  RET 

C0MM0N/CAL2/  JB(82),  N’Bl,  NB2,  NB3,  NNX,  NNY 

COMMON/TUBl/  TK(82,22),  TD(82,22),  EV(82,22) 
COMMON/TUB2/  CK,  CD,  Cl,  C2,  CNU,  AK,  E,  ISCALE 


COMMON/ADDl/  RU(82,22),  RV(82,22),  RPR(82,22) 
COMMON/ADD2/  RTK(82,22),  RTD(82,22) 
COMMON/STEP/  IT,  FT(82,22) 

COMMON/DATA/  THAT(82),  UVOS(82,22),  UTA(82) 


*  SUBROUTINE  BFC  IS  TO  GENERATE  THE  BODY-FITTED  * 

*  COORDINATE  SYSTEM  ON  FLAT  PUTE  FOR  TURBULENT  FLOW  * 


SUBROUTINE  BFC 
IMPLICIT  REAL*8  (A-H,0-Z) 

S INSERT  BLOCK. MAIN 

C0MM0N/C0EF4/  UI ,  VI,  NOd  ,N'X2  ,NX3 
REAL*8  AX(99),  BY(99) 

R£AL*8  AA(99),BB(99) ,CC(99) ,DD(99) ,A(99)  , 
S  DX(99),DY(99),XXI(99),yET(99) 


ABCD=3.0DO 

PRI.NT*,'***  BFC  ***' 

IMAX=82 

JMAX=22 

N'X1=19 

NX2=55 

NX3=22 

DX(NX1)=0.0 

DX(NX2)=1.0 

DX(NX3)=1.0 

DY(2)=O.DO 

DY(JMAX)=ABCD 

Al=-0.3 

A2=-0. 12 

3=0.2835 

IMAM=IMAX-1 

JMAM=J.MAX- 1 

?I=3. 14159265358979300 
E?S=1.D-12 


C -  Y-DIRECTION 

E3G=DEXP(B) 

EBR=1.D0/EBG 

?SN=E3G+EBR 
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EB2=EBG*EBG 

EB2R=1.D0/EB2 

PPSN=2.D0*B/(EB2-EB2R) 

DO  10  J=3,JMAM 
AA(J)=-EBG 
BB(J)=PSN 
CC(J)=-EBR 
10  DD(J)=0.D0 

DD(3)=DD(3)-AA(3)*DY(2) 

DD ( JMAM)=DD ( JMAM) -CC ( JMAM)*DY ( JMAX) 

CALL  TRIDAG(3,JMAM,AA,BB,CC,DD,DY) 

DY(1)=-DY(3) 

C . . . .  YET 

DO  40  J=2,JMAM 

40  YET(J)=PPSN*(DY(J+1)-DY(J-1)) 

YET(2)=.5D0*(DY(3)-DY(1)) 

YET(1)=YET(3) 

YET ( JMAX ) =YET ( JMAM ) * YET ( JMAM ) / YET ( JMAM - 1 ) 

DO  45  J=1,JMAX 
BY(J)=PPSN 
DO  45  I=1,IMAX 
Y(I,J)=DY(J) 

45  CONTINUE 

C _  X-DIRECTION 

C 

AX1=NX1-1. 

AX2=2.*NX1-1. 

AX3=NX2-AX2 
C 

DO  50  I=1,IMAX 
Z1=(I-1)/A:\1 
Z2=(I-AX2)/AX3 
C 

IF(Z1  .LE.  0.5)  THEN 
A(I)=A1 

ELSE  IF(Z1  .GT.  0.5  .AND.  Z1  . 

?IZ=PI*Z1 
A(n=Al*DSIN(PIZ) 

ELSE  IFfZ2  .LE.  1.5)  THEN 
PIZ=PI*Z2 
.•\(  n=A2---DSIN(PI2) 

ELSE  IF(Z2  GT.  i.5)  THEN 


LE.  2.)THEN 


A(I)=-A2 
END  IF 
C 

50  CONTINUE 
C 

DO  60  1=2, IMAM 
AA(I)=-DEXP(A(I)) 

CC(I)=1./AA(I) 

BB(I)=-(AA(I)+CC(I)) 

60  DD(I)=O.DO 
C 

N1=NX1+1 

N2=NX2-1 

C 

DD(N1)=DD(N1)-AA(N1)*DX(NX1) 

DD (N2 ) =DD (N2 ) -CC (N2 )*DX (NX2 ) 

C 

CALL  TRIDAG(N1,N2.AA,BB,CC,DD,DX) 

C 

DO  72  I=NX1,2,-; 

DX(I-1)=-(DX(I)^'.B(I)+L.  I+1)*CC(I))/AA(I) 
72  CONTINUE 
C 

DO  74  I=NX2,IMAM 

DX(I+1)=-(DX(I)*BB(I)+DX(I-1)*AA(I))/CC(I) 
74  CONTINUE 
C 

C.  . . .  XXI 
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DO  80  1=2, IMAM 

IF(DABS(A(I))  .LT.  EPS)  THEN 

EA=. 5D0 

ELSE 

£A2=AA(I)*AA(I) 

EA2R=1./EA2 

EA=2.---A(I)/(EA2-EA2R) 

END  IF 
AX(I)=EA 

XXI(r)=EA*(DX(I+l)-DX(I-l)) 

80  CONTINUE 

XXI(1)=XXI(2)*XXI(2)/XXI(3) 

XXI ( IMAX)=XXI ( IMAM)*XXI ( IMAM) /XXI ( IMAM- 1 ) 
AX(1)=AX(2) 

AX(IMAX)=AX(IMAM) 


DO  85  I=1,IMAX 
II=I 

DO  85  J=1,JMAX 
X(I.J)=DX(II) 
85  CONTINUE 


o  o  n  o 


253 


DO  90  I=1,IMAX 
DO  90  J=2,JMAX 
DSJ(I,J)=XXI(I)*YET(J) 
B11(I,J)=YET(J) 

B12(I,J)=0.0 

B21(I,J)=0.0 

B22(I,J)=XXI(I) 

F1(I,J)=-2.*A(I)/XXI(I)/XXI(I) 

F2(I,J)=-2.*B/YET(J)/YEr(J) 

90  CONTINUE 

DO  106  I=1,NNX+1 
DO  106  J=l,NNy+l 
K=I 

X(I,J)=X(K,J) 

Y(I.J)=Y(K,J) 

B11(I,J)=B11(K,J) 

B12(I,J)=B12(K,J) 

B21(I,J)=B21(K,J) 

B22(I,J)=B22(K,J) 

F1(I,J)=F1(K,J) 

F2(I,J)=F2(K,J) 

AX(I)=AX(K) 

DSJ(I,J)=DSJ(K,J) 

106  CONTINUE 

0PEN(30,FILE='0UTFP') 

WRITE (30, 2400)  (X(I , 2) , 1=1 ,NNX+1) 
WRITE (30, 2400)  (Y(l , J) , J=2 ,NNY+1) 
2400  FORMAT (6E 13. 4) 

CLOSE (30) 

RETURN 

END 


*  SUBROUTINE  EQCOE  IS  TO  CALCULATE  THE  COEFFICIENTS 

*  OF  GOVERNING  EQUATIONS 

SUBROUTINE  EQCOE (M) 

IMPLICIT  REAL*8  (A-H,0-Z) 

S INSERT  BLOCK. MAIN 

IF(M  .£Q.  2)  THEN 

C....  Y  MOMENTUM  EQUATION 


DO  100  I=2,NN'X 
IP1=I+1 
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DO  100  J=JB(I),  NNY 

JP1=J+1 

JM1=J-1 

Vll  =  (B11(I,J)/DSJ(I,J)+B11(IM1,J)/DSJ(IM1,J))*0.5 
V12  =  (B12(I,J)/DSJ(I,J)+B12(IM1,J)/DSJ(IM1,J))*0.S 
V22  =  (B22(I,J)/DSJ(I,J)+B22(IM1,J)/DSJ(IM1,J))*0.5 
V21  =  (B21(I,J)/DSJ(I,J)+B21(IM1,J)/DSJ(IM1,J))*0.5 
EW=0.5*(EV(I,J)+EV(IM1,J)) 

REV=  1.0/(1.0/RE+EW) 

EVDY=0.25*(EV(IH1,JP1)-EV(IM1,JM1)+EV(I,JP1)-EV(I,JM1)) 

EVDX=EV(I,J)-EV(IM1,J) 

EVDX1=(EVDX*V1 1+EVDY*V2 i ) 

EVDY1=(EVDX*V12+EVDY*V22) 

UV=0.25*(U(I,JP1)+U(I,J)+U(IM1,JP1)+U(IM1,J)) 

EB(I,J)=REV*(V11*(UV-EVDX1)+V12*(V(I,J)-2.*EVDY1)) 

$-(Fl(I,J)+Fl(IMl,J))*0.5 

EC ( I , J ) =RE V* ( V 2 1* ( UV -E VDX 1 ) +V22* ( V ( I , J ) - 2 . *E VDY 1 ) ) 
S-(F2(I,J)+F2(IM1,J))*0.5 
EE(I,J)=(V11*V11+V12*V12) 

EF(I,J)=(V21*V21+V22*V22) 

EH(I,J)=REV/DT 

TKDY=0.25*(TK(IM1,JP1)-TK(IM1,JM1)+TK(I,JP1)-TK(I,JM1)) 

r/a)X=TK(I,J)-TK(IMl,J) 

TXDY1=2 . /3 .*(TKDX*V12+TKDY*V22) 

UDX=0.5*(U(I,JP1)-U(IH1,JP1)+U(I,J)-U(IM1,J)) 

UDY=0.5*(U(IM1,JP1)-U(IM1,J)+U(I,JP1)-U(I,J)) 

UDY 1=UDX*V 1 2+UDY*V22 

\T)XDY=0.25*(V(IP1,JP1)-V(IP1,JM1)+V(IM1,JM1)-V(IM1,JP1)) 
SOR=2  .  * ( VI  1*V2 l-i-V12*V22 )*VDXDY 

?R!=0.25*(PR(IPl,JPi)-PR(IMl,JPl)+PR(IPl,J)-PR(IMl,J)) 

PRJ=PR(I,JP1)-PR(I,J) 

SV(I,J)=S0R+REV*(-?RI*V12-PRJ*V22-TXDY1+E'.T)X1*UDY1) 

&^REV/DT=W(I,J) 


100  CONTINUE 

ELSE  IF(  M  .EQ.  1  )  THEN 

C . . .  X  MOMENTUM  EQUATION 

DO  200  1=2, SNX 

IPl=I+i 

IM1=I-1 

DO  200  J=JB(n,  NNT 
JP1=J+1 
J>!1=J-1 
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200 


n 

Vi/  .  .  . 


U11=(B11(I,J)/DSJ(I,J)+B11(I,JM1)/DSJ(I,JM1))*0.5 

U12=(B12(I,J)/DSJ(I,J)+B12(I,JM1)/DSJ(I,JM1))*0.5 

U22=(B22(I,J)/DSJ(I,J)+B22(I,JM1)/DSJ(I,JM1))*0.5 

U21=(B21(I,J)/DSJ(I,J)+B21(I,JM1)/DSJ(I,JM1))*0.5 

EVV=0.5*(EV(I,J)+EV(I,JM1)) 

REU=1.0/(1./RE+EVV) 

EVDY=EV(I,J)-EV(I,JM1) 

EVDX=0.25*(EV(IP1,J)-EV(IM1,J)+EV(IP1,JM1)-EV(IM1,JM1)) 
EVDX 1= ( E VDX*U 1 1+E VD Y*U2 1 ) 

EVDY 1= ( E VDX*U 1 2+E VDY*U2  2 ) 

VU=0.25*(V(I,J)+V(I,JN1)+V(IP1,J)+V(IP1,JM1)) 

EB(I,J)=REU*(U11*(U(I,J)-2.*EVDX1)+U12*(VU-EVDY1)) 

$-(Fl(I,J)+Fl(I,JMl))*0.5 

EC(I,J)=REU*(U21*(U(I,J)-2.*EVDX1)+U22*(VU-EVDY1)) 
$-(F2(I,J)+F2(I,JMl))*0.5 
EE(I , J)=(U11*U11+U12*U12) 

EF(I ,  J)=(L’21*U21+U22*U22) 

EH(I,J)=REU/DT 

TKDY=TX(I,J)-TK(I,JM1) 

rKDX=0.2S*(TK(IPl,J)-TK(IMl,J)+TK(IPl,JMl)-TK(IMl,JMl)) 
TKDX1=2 . /3  .*(TKDX*UU+TKDY*U21) 
VDX=0.5*(V(IP1,J)-V(I,J)+V(IP1,JM1)-V(I,JM1)) 
VDY=0.5*(V(I,J)-V(I,JM1)+V(IP1,J)-V(IP1,JM1)) 

VDX1=VDX*U 1 1+VDY*U2 1 

UDXDY=0.25*(U(IP1,JP1)-U(IP1,JM1)+U(IM1,JM1)-U(IM1,JP1)) 
PRJ=0.25*(PR(IP1,JP1)-PR(IP1,JM1)+PR(I,JP1)-PR(I,JM1)) 
IF(J.EQ.3)  PRJ=0.5*(PR(IP1,4)+PR(I,4)-PR(IP1,3)-PR(I,3)) 
PRI=PR(IP1,J)-PR(I,J) 

IF(J  .EQ.  3)  THEN 

UDXDY=0.25*(U(IPl,JPl)-U(IPl,J)-fU(IMl,J‘  U(IM1,JP1)) 

PRJ=  0.25*(PR(I,JP1)-PR(I,J)+PR(IP1,JP1)-PR(IP1,J)) 

END  IF 

S0R=2 . * (U 1 i*U2 1+C 12*U22 )*UDXDY 

SU ( I , J ) =SOR+REU* ( - PR J*U2 1 - PR I*U 1 1 -TXDX 1+E VDY I* VDX 1 ) 
&+R£U/DT*U(I,J) 


CONTINUE 


ELSE  IF(  M  .EQ.  4  .OR.  .M  .EQ.  5  )  THEN 
TK  AND  TD  EQUATION 


DO  300  I=NB2.NNX 

I?l=I+i 

IM1=I-1 

DO  300  )  ,.\'NY 

JP1=J-1 


T11=B11(I,J)/DSJ(I,J) 

T12=B12(I,J)/DSJ(I,J) 

T22=B22(I,J)/DSJ(I,J) 

T21=B21(I,J)/DSJ(I,J) 

EVDX=0.5*(EV(IP1,J)-EV(IM1,J)) 

EVDY=0 . 5* ( EV ( I , JP 1 ) - EV ( I , JMl ) ) 

EVDX1= (EVDX*T1 1+EVDY*T2 1 ) 

EVDY1= (EVDX*T2 1+EVDY*T22 ) 

UDY=U(I,JP1)-U(I,J) 

UDX=0.25*(U(IP1,JP1)-U(IM1,JP1)+U(IP1,J)-U(IM1,J)) 
UDX1=UDX*T1 1+UDY*T2 1 
UDY 1=UDX*T 1 2+UDY*T22 

VDY=0.25*(V(I,JP1)-V(I,JH1)+V(IP1,JP1)-V(IP1,JM1)) 

\T)X=V(IPl,J)-V(i,J) 

VDX 1=VDX*T1 1+VDY*T2 1 
VDYl=VDX*T12-fVDY*T22 

GG=EV  ( I ,  J)*  (  2 .  *(UDX1*UDX14-VDY1*VDY1  )+(UDYl+VDXl  )*(UDYi-i-V 


IF(M  .EQ.  5)  THEN 
SG=CD 

ELSE  IF(M  -EQ.  4)  THEN 
SG=CK 
END  IF 

RED=1./(1./RE+EV(I,J)/SG) 

UC=0.5*(U(I,JP1)+U(!,J)) 

VC=0.5*(V(I,J)-i-V(IPl,J)) 

E3(I,J)=RED*((UC-EVT)Xl/SG)*Tll+(VC-EVDYl/SG)*Ti2)-Fl(I,J 
EC(I,J)=RED*((UC-E\T)X1/SG)*T21+(VC-EVDY1/SG)*T22)-F2(I,J 
£E(I ,  J)=Tll*Tli-!-T12*T12 
EF  ( I ,  J)=T2 1*T2  l-i-T22*T22 

IF(M  .EQ.4)  THEN 

rra)X'Y=0.25*(TK(I?l,JPl)-TK(IMl,JPl)+TK(IMl,J>ll)-TK(I?l.J 

S0R=2 .  *  (T1 1*T2 1+T12^'T'22  )*TKDXY 

SK(I ,  J)=S0R*R£D*(GG)+RED/D'P^T:<(I  .J) 

EH(I.J)=TDtI,J)*RED/TK(I,J)+RED/DT 

ELSE  IF(  M.  EQ.5)  THEN 

TDDXy=0 . 25*  (TD  ( I P 1 ,  JP  1 )  -TD  ( IMl ,  Jf  1 )  4-TD  ( IM 1 ,  JM 1 )  -TD  { I  PI ,  J 
S0R=2 . * (T1 1*T2 l+Ti2*T22 )*TDDXY 
IF  (ISCALE.EQ. 1)  THEN 
TSCAL=TD(I,J)/TX(I,J) 

ELSE  IF (ISCALE.EQ. 2)  THEN 
TSCAL=DSQRT(TD(I,J)) 

ELSE 

PRINT*,  'ERROR  IN  SELECTION  OF  TURBULENT  SCALE!!' 

END  IF 

SD(I .  J^=SOR-Cl*RED*GG*TSCAL-i-RLD,  DT*TD(I ,  J) 


EH(I , J)=C2*RED*TSCAL+RED/DT 
F.ND  IF 

300  CONTINUE 
END  IF 


RETURN 

END 


C  f  ?rvV'.'.-A".Wc';v,V'A->K"jVA"A'aV:VA'A 

C  *  SUBROUTINE  HVEL  IS  TO  CALCULATE  THE  PSEUDOVELOCITY 
C  »»»»>»>>»»>>>»»>»»»»»>»?  ^»»»»»»»»» 

SUBROUTINE  HVEL 
IMPLICIT  REAL*8  (A-H,0-Z) 

S INSERT  BLOCK. IlAIN 

PRINT*,'***  HVEL  ***' 

IE  =  NNX+1 
JE  =  NNY+1 

C.. ..  CORRECT  THE  VELOCITY  BY  PRESSURE  CORRECTION 

DO  10  1=2, NNX 

IP1=I+1 

IM1=I-1 

DO  10  J=JB(I),NNY 

JP1=J+1 

JM1=J-1 

V(I,J)=VS(I,J)-DV(I,J)*(PP(I,JP1)-PP(I,J)) 

U(I,J)=US(I,J)-DU(I,J)*(PP(IP1,J)-PP(I,J)) 

10  CONTINUE 

CALL  WALLFN 

CALL  CHECK (U,l, IE, JE) 

CALL  CHECK(V,2,IE,JE) 

C. . . .  PSEUDOVELOCITY  OF  V 

CALL  EQCOE  (2) 

CALL  C0EF(2) 

DO  150  1=2,. 

IP1=I+1 

IM1=I-1 

DO  150  J=JB(I),NNY 
JP1=J+1 


REV=EH(I,J)*DT 

V22=(B22(I,J)/DSJ(I,J)+B22(IMl,J)/DSJ(IMl,J))/2. 

VHS=SV(I,J)+REV*V22*(PR(I,JP1)-PR(I,J)) 

DV(I,J)  =  ZC(I,J)  *  REV 

VH(I,J)=V(IPl,J)*ZE(I,J)-}-V(IPl,JPl)*ZNE(I,J) 

&  +V(IP1,JM1)*ZSE(I,J)+V(I,JM1)*ZS(I,J) 

&  +V(IM1,JM1)*ZSW(I,J)+V(IM1,J)*ZW(I,J) 

&  +V(IMl,JPi:*ZNW(I,J)+V(I,JPl)*ZN(I,J)+ZC(I,J)*VHS 

150  CONTINUE 


C .  PSEUDOVELOCITY  OF  U 

CALL  EQCOE  (1) 

CALL  COEF(l) 

DO  100  I  =  2,  NNX 
IP1=I+1 
IM1=I-1 

DO  100  J  =  JB(I),  NNY 
J>11=J-1 
JP1=J+1 

UU=(Bll(I,J)/DSJ(I,J)+Bll(I,JMl)/DSJ(I,JMl))/2. 

REU=EH(I,J)*DT 

UHS=SU ( I , J ) +REU*U 1 1* ( PR ( I P 1 , J ) - PR ( I , J ) ) 

DU(I,J)  =  ZC  (I,J)  *  REU 
UH(I,J)=U(IP1,J)*ZE(I,J)+U(IP1,JP1)*ZNE(I,J) 

&  +U(IP1,JM1)*ZSE(I,J)+U(I ,JM1)*ZS(I,J) 

&  +U(IM1,JM1)*ZSW(I,J)+U(IH1,J)*ZW(I,J) 

&  +U(IM1,JP1)*ZNW(I,J)+U(I,JP1)*ZN(I,J)+ZC(I,J)*UHS 

100  CONTINUE 


C . . .  SET  THE  BOUNDARY  DATA 

DO  200  I  =  1,  IE 

VH(I,JE  )  =  V(I,JE) 
UH(I,JE  )  =  U(I,JE) 
J=JB(I)-1 
UH(I,J)=U(I,J) 
VH(I,J)=V(I,J) 

200  continxt; 


C...  ALONG  THE  1=1  --THE  INLET  LINE 

DO  300  J  =  1,  JE 
VH(1,J)  =  V(1,J) 

UHd.J)  =  U(1,J^ 

UH(IE  ,J)=U(IE  ,J) 

VTiCIE  ,J)=VCIE  ,J) 


300  CONTINUE 
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RETURN 

END 


C  *  SUBROUTINE  SVEL  IS  TO  SOLVE  THE  VELOCITY 
C  »»>»''»»»>»»»»»»»»»»»»>»»»>>»»»» 

SUBROUTINE  SVEL 
IMPLICIT  REAL*8  (A-H,  O-Z) 

$  INSERT  BLOCK. MAIN 


PRINT* , ' ***  SVEL  *** 


IE=NNX+1 

JE=NNY+1 

DO  20  I=1,NNX+1 

DO  20  J=2,NNY+1 

US(I,J)=U(I,J) 

VS(I,J)=V(I,J) 

20  CONTINUE 

C. . . .  U  VELOCITY 

CALL  EQCOE(  1  ) 

CALL  COEF(l) 

DO  100  I  =2  ,.MNX 

DO  100  J  =  JB(I),  NNT 

FT(I,J)=ZC(I,J)*SU(I,J) 

DU(I , J)=ZC(I , J)*EH(I , J)*DT 
100  CONTINUE 

CALL  SOLVE (US, ft, 1,2, IE, JE) 
CALL  CHECK(US,1,IE,JE) 

C _  V  VELOCITY 

CALL  EqCOE(  2  ) 

CALL  C0EF(2) 

DO  150  1=2, NNX 

DO  150  J=JB(I').NNY 

FT(I,J)=ZC(I,JV"-SV(I,J; 

DV(I,J)  =  ZC(i.J)  EH(I.J)*DT 
150  CONTINUE 

CALL  SOLVEfVS.FT,2,2.IE,JE) 
CALL  CHECKrvS,2,IE.JE) 


RETURN 

END 
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C 

C 

C 

C 


*  SUBROUTINE  PRESS  IS  USED  TO  SOLVE  1.  PRESSURE 

*  2.  PRESSURE  CORECTI ON 


SUBROUTINE  PRESS  (NC) 

IMPLICIT  REAL*8  (A-H,0-Z) 

$  INSERT  BLOCK. MAIN 

DIMENSION  AA(99) ,BB(99) ,CC(99) ,DD(99) ,T(99) 

PRINT*,  '  :::  PRESS  :::  NC  =  ' ,NC 

IE  =  NNX+1 
JE  =  NNY+1 
JMN=JB(NB3+l)-l 

DO  20  J=2,JE 
DU(IE,J)=DU(NNX,J) 

DV(IE,J)=DV(NNX,J) 

DU(1,J)=DU(2,J) 

DV(1,J)--DV(2,J) 

20  CONTINUE 

DO  30  1=1, IE 

J=JB(I)-1 

jP1=J+1 

DU(I,J)=DU(I,JP1) 

DV(I,J)=DV(I,JP1) 

DU(I,JE)=DU(I ,NNY) 

DV(I,JE)=DV(I,.NN'Y) 

30  CONTINUE 


DO  210  1=2,  NTIX 
DO  210  J=JB(I),  NNY 
IM1=I-1 
JM1=J-1 

Pll=(Bll(I,J)/DSJ(I,J)+Bll(I,JMi)/DSJ(I,JMl))/2. 

DU(I,J)=P11*DU(I,J) 

?22=(B22fI  ,JVDSJ(I,J)+B22(IMl,J)/DSJ(IMl,J))/2. 
DV(I,J)=P22*DV(I,J) 

210  CONTI.NUE 

DO  100  1=2, NNX 

I?1=I+1 

IM1=I-1 

DO  100  J=JBn)  ,NN'Y 


261 


JP1=J+1 

JM1=J-1 

AE(I,J)=(Y(I,J)-Y(I,JM1))*DU(I,J) 

AW(I,J)=(Y(IM1,J)-Y(IM1,JH1))*DU(IM1,J) 

AN(I,J)=(X(I,J)-X(IM1,J))*DV(I,J) 

AS(I,J)=(X(I,JMl)-X(IMl,JMl))*DV(I,Jm) 

AP(I,J)=AE(I,J)+AW(I,J)+AN(I,J)+AS(I,J) 

100  CONTINUE 

DO  175  J=3,NNY 

AP (NNX , J)=AP (NNX , J) -AE (NNX, J) 

AP(2,J)=AP(2,J)-AW(2,J) 

AE(NNX,J)=0. 

AW(2,J)=0. 

175  CONTINUE 

DO  117  1=2, NNX 
J=JB(I) 

AP(I,J)=AP(I,J)-AS(I,J) 

AS(I,J)=0.0 
117  CONTINUE 

DO  234  J=3,JMN 

AP(NB3+2 , J)=AP(NB3+2 , J) •AW(NB3+2 , J) 

AW(NB3+2,J)=0.0 
234  CONTINUE 

C....  FORM  THE  SOURCE  TERM  OF  PRESSURE  CORRECTION  EQUATION 
IF(NC  .EQ.  2)  THEN 
DO  343  J=3,JMN 
VS(NB3+1,J)=V(NB3+1,J) 

US(NB3+1,J)=U(NB3+1,J) 

343  CONTINUE 

DO  52  I=2,NTfX 
IP1=I+1 
IM1=I  ’ 

DO  ■  J=JB(I),  N 

JPl^J+1 

JM1=J-1 

DS(I,J)=(Y(I,J)-Y(I,JM1))*US(I,J) 

S  -(Y(IM1,J)-Y(IM1,JM1))*US(IM1,J) 

S  +(X(I,J)-X(IM1,J))*VS(I,J) 

$  -(X(I,JM1)-X(IM1,JM1))"VS(I,JM1) 

DST(I,J)=DS(I,J) 

52  CONTI  NTJE 

DO  62  1=1,  IE 
DO  62  J=1,JE 
FT(I,J)=0.0 
62  CONTINTIE 


ELSE  IF(NC  .EQ.  1)  THEN 


DO  456  J=3,JMN 
UH(NB3+1,J)=U(NB3+1,J) 

VH(NB3+1,J)=V(NB3+1,J) 

456  CONTINUE 

DO  150  1=2, NNX 

IP1=I+1 

IM1=I-1 

DO  150  J=JB(I),  NNY 

JP1=J+1 

JM1=J-1 

DS(I,J)=(Y(I,J)-Y(I,JM1))*UH(I,J) 

S  -(Y(IM1,J)-Y(IM1,JM1))*UH(IM1,J) 

§  +(X(I,J)-X(IM1,J))*VH(I,J) 

S  -(X(I,JM1)-X(IM1,JM1))*VH(I,JM1) 

150  CONTINUE 

DO  270  J=1,JE 
DO  270  1=1, IE 
FT(I,J)=PR(I,J) 

270  CONTINUE 

END  IF 

C....  SOLVE  THE  EQUATION  DOMAIN  BY  USING  TRIDIAGONAL  METHOD 

ITP=50 
FAC=0. 1 
EPS=l.D-7 

DO  400  IP=1,ITP 
S0R=0 . 

DO  300  1=2, NNX 

IF(I.EQ.NB2)  GO  TO  300 

IP1=I+1 

IM1=I-1 

JJ=JB(I) 

DO  320  J=JJ,NNT 

JP1=J+1 

JM1=J-1 

AA(J)=-AS(I,J) 

BB(J')=AP(I,J) 

CC(J)=-AN(I,J) 

DD(J')=AE(I,J)*FT(IP1.J)+AW(I,J)*FT(IM1,J)-DS(I,J) 

320  CONTINUE 


o  o  o 


DD(JJ)=DD(JJ)-AA(JJ)*FT(I,JJ-1) 

DD(NNY)=DD(NNY)-CC(NNY)*FT(I,JE) 

CALL  TRIDAG (JJ,NNY,AA,BB,CC,DD,T) 

DO  340  J=JJ,NNY 
ST  =FT(I,J)-T(J) 

IF(DABS(SOR)  .LT.  DABS (ST))  SOR=ST 
FT(I,J)=T(J) 

340  CONTINUE 

300  CONTINUE 

DO  310  J=1,NNY 

C  IF(NC .EQ . l)FT(NB3+2 , J)=0 . 5*(FT(NB3+1 , J)+FT(NB3+3 , J) ) 
310  FT(NB2,J)=0.5*(FT(NB2-1,J)+FT(NB2+1,J)) 

IF(DABS(SOR)  .LT.  EPS)  GO  TO  345 

400  CONTINUE 

345  WRITE (6, 900)  NC,  IP,  SOR 
CALL  CHECK(FT,3,IE,JE) 


IF(NC  .EQ.  1)  THEN 
DO  500  1=1, IE 
DO  500  J=2,JE 

PR(I,J)=(1.-FAC)  *PRri,J)+  FAC*FT(I,J) 
500  CONTINUE 

ELSE  IF(NC  .EO.  2)  THEN 
DO  550  1=1, IE 
DO  550  J=2,JE 
PP(I,J)=FT(I,J) 

550  CONTINUE 
END  IF 

900  F0RMAT(2I10,E12.4) 

RETURN 

END 


*  SUBROUTINE  COEF  IS  USED  TO  CALCULATE  THE  FA  COEFFICIENTS 


SUBROUTINE  C0EF(  NC  ) 
IMPLICIT  REAL*8(A-H,0-Z) 


S INSERT  BLOCK. MAIN 

DDIENSION  CF(3,3) 


o  o  o 
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PI=3.141592653589793D0 

MAX=6 

EPE=l.D-5 

C1W=1.D0 

EMAX=20.D0 


IJ1=2 

IF(NC  .GE.  4)  IJ1=NB2 
DO  200  I=IJ1,NNX 
DO  200  J=JB(I),NNY 

AR=EB(I,J)/2.D0 

BR=EC(I,J)/2.D0 

ER=DSQRT(EE(I,J)) 

FR=DSQRT(EF(I,J)) 

IF  (  FR  .LT.  l.D-23)  PRINT*,  'ERROR  IN  COEF,  FR=0. 


HX=1 . /ER 
Hy=l . /FR 
AR=AR/ER 
BR=BR/FR 

IF (DABS (AR) . LT . EPE) AR=DSIGN (EPE , AR) 

IF(DABS(BR) .LT.EPE)BR=DSIGN(EPE,BR) 

CHECK  THE  SIZES  OF  THE  GRIDS  IF  IT  AGREES  WITH  THE  ASSUM 
DIRECTIONS  IN  THE  DERIVATION,  AND  IF  IT  DOES  NOT  CHANGE 
SEE  PAGE  53.  OF  DR.  H.C  CHEN  DISSERTION. 


ER2=ER*ER 

FR2=FR*FR 

AB2=AR*AR+BR*BR 

-ii=AR-  HX 

AKW=AR*Hy 

3K=BR*HX 

BK=BR*HY 

DAJ1=DABS(AH) 

DBK=DABS(BK) 

AK2=AH*AH 

BK2=BK*BK 


IM=0 

JM=0 

IF(DAH.GT.EMAX)  IM=1 
IF(DBK.GT.EMAX)  JM=2 
M=IM+JM+1 

GO  TO  (1,2, 3. 4),  M 

1  E?AH=DEXP{AH) 
E?BX=DEXP(BK) 
E?AHI=1./E?AH 
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EPBKI=1./EPBK 
COSHA=0 . 5* (EPAH+EPAHI ) 

COSHB=0 . 5* (EPBK+EPBKI ) 

C0THA=2 . *COSHA/ (EPAH-EPAHI ) 

C0THB=2 . *COSHB/ (EPBK-EPBKI ) 

AKCTHA=AKW*COTHA 

BHCTHB=BH*COTHB 

PWR=1. 

IF(HX  .GT.  HY)  GO  TO  11 
EX2=0 . 

DO  10  11=1, MAX 
ZA=(II-0.5)*PI 
ZA2=ZA*ZA 
PWR=-PWR 

DABK=DSQRT(AB2+2A2*ER2)*KY 
IFCDABK  .GT.  100.)  GO  TO  9 
AB=DEXP(DABK) 

10  EX2=EX2-PVR*ZA/ ( (AB+1 . /AB)*(AH2+ZA2)*(AH2+ZA2) ) 
9  PA=8 .*AH*C0THA*C0SHA*C0SHB*EX2 

PB=1 . +BHCTHB/ AKCTHA* (PA- 1 . ) 

CF (2 , 2)=0 . 5*HX/ (AR*COTHA)*( 1 . -PA) 

GO  TO  100 

11  EY2=0. 

DO  12  11=1, MAX 
ZA=(II-0.5)*PI 
ZA2=ZA*ZA 
PWR=-PVR 

DABH=DSQRT ( A32+ZA2*FR2 )*HX 
IF(DABH.GT. 100.)  GO  TO  19 
AB=DEXP(DABH) 

12  EY2=EY2-PVR*ZA/ ( (AB+1 . /AB)*(BK2+ZA2)*(BK2+ZA2) ) 
19  PE=8 . *BK*C0rriB*C0SHA*C0SHB*EY2 

PA= 1 . +AKCTHA/ BHCTHB* ( PB - 1 . ) 
CF(2,2)=0.5*HY/(BR*C0THB)*(1.-PB) 

GO  TO  100 

2  EPBK=DEXP(BK) 

EPBKI=1./EPBK 
C0SHB=0 . 5* (EPBK+EPBKI ) 

C0THB=2 .*COSHB/ (EPBK-EPBKI ) 

C0THA=DSIGN(C1W,AR) 

AKCTHA=AKW*COTHA 

BHCTHB=BH*COTKB 

PWR=1. 

I?(AKCTHA.LT. BHCTHB)  GO  TO  22 
£XZ=0 . 

F>;2=0 . 

DO  20  1 1=1, MAX 
ZA=(II-0.5)^'-?I 
ZA2=ZA"ZA 


PWR=-PWR 

PZ=PWR*ZA/ ( (AH2+ZA2)*(AH2+ZA2) ) 
FX2=FX2-PZ 

DABK=DSQRT (AB2+ZA2*ER2 )*HY 
AB=1. 

IFCDABK.GT.IOO.)  GO  TO  20 
EPABK=DEXP(DABK) 

AB=1 . -COSHB/ (EPABK+1 . /EPABK) 

20  EX2=EX2-PZ*AB 
PA=1 . -EX2/FX2 

PB=1 . +BHCTHB/AKCTHA* (PA- 1 . ) 

OF ( 2 , 2 ) =0 . 5*HY/ ( BR*COTHB ) * ( 1 . -PB ) 

GO  TO  100 

22  Ey2=0. 

DO  23  I 1=1, MAX 
ZA=(II-0.5)*PI 
ZA2=ZA*ZA 
PWR=-PWR 

DABH=DAH-DSQRT(AB2-^.A2*FR2)*HX 
IF(DABS(DABH) -GT. lOv  )  GO  TO  29 
AB=DEXP(DABH) 

23  EY2=EY2-PW'R*ZA*AB/ ( (BK2+ZA2)*(BK2+ZA2) ) 

29  PB=4.*3K*C0THB*C0SHB*EY2 
PA=1 . +AKCTHA/BHCTHB* (PB - 1 . ) 
CF(2,2)=0.5*HY/(BR*COTHB)*(1.-PB) 

GO  TO  lOO 

3  EPAH=DEXP(AH) 

EPAHI=1 . /EPAH 
C0SHA=0 . 5* (EPAH+EPAHI ) 

C0THA=2 . *COSHA/ (EPAH-EPAHI ) 
C0THB=DSIGN(C1W,BR) 

AKCTHA=AKW'*COTHA 

BHCTHB=BH*C0THB 

?\<‘R=1. 

IF(AKCTHA.GT.BHCTHB)  go  to  32 
EY2=0 . 

FY2=0. 

DO  30  I 1=1, MAX 
ZA=(II-0.5)*PI 
ZA2=ZA*ZA 
PWR=-?VR 

PZ=PWR*ZA/ ( ( BK2+ZA2 )* (BK2+ZA2 ) ) 
FY2=FY2-PZ 

DABH=DSQRT(AB2+ZA2*FR2)*HX 

AB=1. 

IFCDABH.GT.IOO.)  GO  TO  30 
EPABH=DEXP(DABK) 

AB=1 . -COSHA/ (EPABH+1 . /EPABH) 

30  EY2=EY2-PZ*AB 
PB=i. 'EY2/FY2 
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PA=1 . +AKCTHA/BHCTHB*(PB- 1 . ) 

CF (2 , 2 )=0 . 5*HY/ ( BR*C0TH3 )* ( 1 . - PB ) 

GO  TO  100 

32  EX2=0. 

DO  33  11=1, MAX 
ZA=(II-0.5)*PI 
ZA2=ZA*ZA 
PUT1=-PWR 

DABK=DBK-DSQRT(AB2+ZA2*ER2)*HY 
IF(DABS(DABK).GT.100.)  GO  TO  39 
AB=DEXP(DABK) 

33  EX2=EX2-PWR*ZA*AB/ ( (AH2+ZA2)*(AH2+ZA2) ) 
39  PA=4.*AH*C0THA*C0SHA*EX2 

PB=1 . +BHCTHB/AKCTHA* (PA- 1 . ) 
CF(2,2)=0.5*HY/(BR*C0THB)*(1.-PB) 

GO  TO  100 

4  DAK=DABS(AKW) 

DBH=DABS(BH) 

C0THA=DSIGN(C1W,AR) 

C0THB=DSIGN(C1W,BR) 

IF(DAK.LT.DBH)  GO  TO  41 
PA=0. 

PB=1.-DBH/DAK 

CF ( 2 , 2 )=0 . 5*HX/ ( AR*COTHA ) 

GO  TO  100 

41  PB=0. 

PA=1. -DAK/DBH 
CF(2,2)=0.5*HY/(BR*C0THB) 

100  Q=1.-PA-PB 

TANHA=1 . /COTHA 
TANHB=1./C0' 

BE=0.5*(l.-TAiNriA) 

BK=0.5*(1.+TANHA) 

BN=0.5*(1.-TANHB) 

BS=0.5*(1.+TANHB) 

CF(1,1)=BW*BS*Q 

CF(3,1)=BE*BS*Q 

CF(1,3)=BW*BN*Q 

CF(3,3)=BE*BN*Q 

CF(2,1)=BS*PA 

CF(2,3)=BN*PA 

CF(1,2)=BW*PB 

CF(3,2)=BE*PB 

CFC=CF(2,2) 

CFP=1.+CFC*EH(I,J) 

ZC(I,J)=CFC/CFP 


o  o  o 
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C....  FINAL  FA  COEFFICIENTS  ON  TRANSFORMED  DOMAIN 

ZS(I,J)=CF(2,1)/CFP 

ZN(I,J)=CF(2,3)/CFP 

ZV(I,J)=CF(1,2)/CFP 

ZE(I,J)=CF(3,2)/CFP 

ZSW(I,J)=CF(1,1)/CFP 

ZSE(I,J)=CF(3,1)/CFP 

ZNW(I,J)=CF(1,3)/CFP 

ZNE(I,J)=CF(3,3)/CFP 

200  CONTINTJE 

RETURN 

END 


*  SUBROUTINE  SOLVE  IS  USED  TO  SOLVE  STARED  VELOCITY 
»>»»»»»»»»»>>»»»»»»»»»»»»»»»> 

SUBROUTINE  SOLVE (HT , FZ , NC , IS  1 , IX , lY) 

IMPLICIT  REAL*8  (A-H,  0-Z) 

S INSERT  BLOCK. MAIN 

DIMENSION  FZ(IX,IY),KT(IX,IY) 

REAL*8  AA(99) ,BB(99) ,CC(99) ,DD(99) ,T(99) 


IE=NNX+1 
J£=NNY+1 
DO  900  IM=1,10 
E?SR=0 . 0 

DO  100  I=ISi,.NNX 
IP1=I+1 
IM1=I-1 
JJ=J3(I) 

DO  200  J=JJ,  NNY 

JP1=J+1 

JM1=J-1 


AA(J)=-ZS(I,J) 

BB(J)=1. 

CC(J)=-ZN(I,J) 

DD(J1=ZE(I,J)*HT(IP’ ,J)+ZW(I,J)*HT(IM1,J) 

S  ■s-ZSE(I,Jl*KT(IPl.JMi)+ZNV,-(I.J)*HT(IMl,JPl)+ZNE{I,J) 
S  ’-'HT ( I  ?  1 .  JP 1 ) +ZSW ( I ,  J ) ^HT ( IM 1 ,  jM  I ) +FZ  ( I ,  J ) 

200  CONTINUE 


o  o  o 
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DD(JJ)=Ln(JJ)-AA(JJ)*HT(I,JJ-l) 

DD (NNY)=DD (NNY) -CC (NNY)*HT(I , JE) 

CALL  TRIDAG (JJ, NNY, AA.BB.CC.DD.T) 

IF(I.LT.NB1.0R.I.GT.NB3+1)  CALL  UPDATE(HT, I ,NC , IX, lY) 

DO  50  J=JJ,NNY 
EPS2=DABS(HT(I , J) -T(J) ) 

IF(EPS2.GT.EPSR)  EPSR=EPS2 
50  HT(I,J)=T(J) 

100  CONTINTJE 

IF(EPSR.LT.1.0D-7)  GO  TO  20 
900  CONTINTjE 

20  WRITE (6, 1000)  NC,  IM.EPSR 

1000  FORMAT! 'SOLVE  NC=' ,  15,  ' ITERAT.=  '  ,  1 10 , '  EPSR=’,E12.4 

RETURN 
END 


■»  1 1*- 1*- •■■*-.>1  ■■  I  i‘i  I'li'.i*--*-  *1  ■■■»!  if.i  .r,  1*1  i»i  -• .t.-l,,*,,? — t..l — 1-.<. 

*  SUIROUTINE  CHECK  IS  TO  UPDATE  BOUNDARY  VALUES 


SUBROUTINE  CHECK (GG,NC, IX, lY) 
IMPLICIT  REAL*8  (A-H,  O-Z) 

S INSERT  BLLCK.MAIN 

DIMENSION  GG(IX,IY) 


IE=NNX+1 
JE=NNY+1 
DO  100  1=2,  NNC! 

CALL  UPDATE(GG,I,NC,IX,IY) 

100  CONTINUE 

IF(NC  .EQ.  1)  THEN 

DO  110  J=1,JE 

IF(GG(NNX,J)  -LT.  GG(NNX-1,J))  THEN 
GG  (  NNX ,  J  )  =GG  (NST!  - 1 ,  J  )  *  1 . 00 1 
GG(IE,J)  =GG(N'NX-1.J)*1.002 
ELSE 

di=x(ie,j)-xcnn:<,j', 

D2=X(NNX,J)-X(NNX-i.J) 

DX1=(D1*D2) 'D2 
DX2=D1/D2 

GG  f  IE ,  J  )=GG (  NNX .  J)^^DX  1  -GGf  NN’X- 1 ,  J)*DX2 
END  IF 

IFCGCmIE.J)  .GT.i.O)  GG(IE.J)=l.O 
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110  CONTINUE 

ELSE  IF(NC  .EQ.  2)  THEN 

DO  210  J=1,JE 
GG''IE,J)=GG(N'NX,J) 

210  CONTINUE 

ELSE  IF(NC  .EQ.  3)  THEN 

DO  360  J=1,JE 
GG(IE,J)=GG(NNX,J) 

360  CONTINTJE 

ELSE  IF(NC  .GE.  4  )  THEN 

DO  410  J=1,JE 
GG(IE,J)=GG(NNX,J) 

410  CONTINUE 

ENT)  IF 

RETURN 

END 


C  *  SUBROUTINE  UPDATE  IS  TO  UPDATE  BOUNDARY  VALUtS 
C  »»»>»»»>>»»»>»»»»»»»»»»»»»»»»» 

subroutint;  update (gg , i , nc , ix ,  iy) 

IMPLICIT  P£AL*8  (A-H,  O-Z) 

S INSERT  BLOCK.. MAIN 

DIMENSION  GG(IX,IY) 

IE=NNX-i-l 

JE=.NNY+1 

JJ=JB(I)-1 

JJ1=JJ+1 

JJ2=JJ+2 

IF(NC  .EQ.  1)  THEN 

IF  (I  .GE.  NBl  .A.ND.  I  .LE.  .NB3)  RETURN 
IF(I.EQ.NB3+1)  THEN 
D5=(Y(I,JJ2)-i-Yli.JJl))*0.5 
D4= ( Y  f I . J J 1 ) -Y ( I , J J ) ) *0 . 5 
D42=(D4-YfI,2))**2 
D52=fD5-YfI.2))**2 
C  GG(I.2)=GGn-1.3) 

DG=GG(I.JJli-GG(I.2) 

GO  50  J=3,JJ 
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D3=(Y(I,J)+Y(I,J-1))*0.5 

D32=(D3-Y(I,2))**2 

C  GG(I,J)=GG(I,JJ1)-(GG(I,JJ2)-GG(I,JJ1))*(D42-D32)/(D52-D 
GG ( I , J ) =GG ( I , 2 ) +DG*D32 / D42 
50  CONTINUE 
END  IF 

C  D4=(Y(I,4)+Y(I,3))*0.5 

C  D3=(Y(I,3)+Y(I,2))*0.5 

C  D32=(D3-Y(I,2))**2 

C  D42=(D4-Y(I,2))**2 

C  GG(I,2)=(GG(I,3)*D42-GG(I,4)*D32)/(D42-D32) 

C  IF(IT  .LT.  5)  THEN 

C  DO  10  J=3,10 

C  J1=J+1 

C  DO  20  JM=J1,JE 

C  20  IF(GG(I,J)  .GT.  GG(I,JM))  GG(I , J)=GG(I , JN) 

C  10  CONTINUE 
C  END  IF 

ELSE  IF(NC  .EQ.  2)  THEN 

GG(I,JE)=GG(I,NNY) 

IF(I.GE.NB2.AND.I.LE.NB3)  THEN 
DO  60  J=3,JJ-1 

60  GG(I,J)=GG(I,JJ)*Y(I,J)/Y(I,JJ) 

C  GG(I,JJ)=0. 

END  IF 

IF(I.EQ.NB3+1)  THEN 
DO  70  J=3,JJ 

70  GG(I,J)=GG(I,JJ1)*Y(I,J)/Y(I,JJ1) 

END  IF 

ELSE  IF(NC  .EQ.  3)  THEN 

GG(I,JE)=0. 

IM1=I-1 

D2=(Y(I,2)+Y(IM1,2))*0.5 

D4=(Y(I,JJ1)+Y(I,JJ)+Y(IM1,JJ1)+Y(IM1,JJ))*0.25 

D5=(Y(I,JJ2)+Y(I,JJ1)+Y(IM1,JJ2)+Y(IM1,JJ1))*0.25 

D52=D5-D2 

D42=D4-D2 

IF(I.GE.NB2.AND.I.LE.NB3)  THEN 
DO  80  J=3,JJ 

D3=(Y(I,J)+Y(I,J-1)+Y(IM1,J)+Y(IM1,J-1))*0.2S 

D53=D5-D3 

D43=D4-D3 

GG(I,J)=(D53*GG(I,JJ1)-D43*GG(I,JJ2))/(D53-D43) 

80  CO.NTINUE 

GG(I,2)=(D52*GG(I ,JJl)-D42*GG(I,Jj2))/(D52-D42) 

ELSE 

D52=D52--D52 


ooo  ooo  ooo 


D42=D42*D42 
IF(I.EQ.NB3+1)  THEN 
DO  90  J=3,JJ 

D3=(Y(I,J)+Y(I,J-1)+Y(IM1,J)+Y(IM1,J-1))*0.25 

D32=(D3-D2)**2 

GG(I,J)=GG(I,JJ1)-(GG(I,JJ2)-GG(I,JJ1))*(D42-D32)/(D52-D 

GG(I,J)=0.5*(GG(I+1,J)+GG(I-1,J)) 

90  CONTINUE 
END  IF 

IF(I.GE.NB1.AND.I.LT.NB2)  THEN 

D3=(Y(I,3)+Y(I,2)+Y(IM1,3)+Y(IM1,2))*0.2S 

D4=(Y(I,4)+Y(I,3)+Y(IN1,4)+Y(IM1,3))*0.25 

D32=(D3-D2)**2 

D42=(D4-D2)**2 

GG(I,2)=(D42*GG(I,3)-D32*GG(I,4))/(D42-D32) 

END  IF 
END  IF 

ELSE  IF(NC  .GE.  4  )  TKEN 

IF(I.LE.NB3)  RETURN 
D42=Y(I,JJ1)*Y(I,JJ1) 

DS2=Y(I,JJ2)*Y(I,JJ2) 

IF(I.EQ.NB3+1)  THEN 
DO  100  J=3,JJ 
D32=Y(I,J)*Y(I,J) 

GG(I,J)=GG(I,JJ1)-(GG(I,JJ2)-GG(I,JJ1))*(D42-D32)/(D52-D 
100  CONTINUE 
END  IF 

D32=Y(I,3)*Y(I,3) 

D42=Y(I,4)*Y(I,4) 

GG(I,2)=(D42*GG(I,3)-D32*GG(I,4))/(D42-D32) 

END  IF 

RETURN 

END 


C 


*  SUBROUTINE  IS  USED  TO  SOLVE  1. 

*  2. 


TURBULENT  KINETIC  EN'ERGY 
DISSIPATION  RATE 


SUBROUTINE  STXD 
IMPLICIT  REAL*8(A-H,0-Z) 

S INSERT  BLOCK. MAIN 

IE=NN'X+l 

JE=NNY+1 

C. . . .  SOLVE  K  EQUATION 


o  o  n  o 


CALL  EQCOE(  4  ) 

CALL  COEF  (4) 

DO  10  I=NB2,NNX 
DO  10  J=JB(I),NNY 
FT(I,J)=ZC(I,J)*SK(I,J) 

10  CONTINUE 

CALL  S0LVE(TK,FT,4,NB2,IE,JE) 

CALL  CHEGK(TK.4,IE,JE) 

DO  60  I=NB2,IE 
DO  60  J=2,JE 

IF(TK(I,J).LT.l.D-9)  TK(I , J)=l .D-9 
60  CONTINUE 

C. . . .  SOLVE  DISSIPATION  EQUATION 

CALL  EQC0E(5) 

CALL  COEF  (5) 

DO  20  I=NB2,NNX 
DO  20  J=JB(I),NN'Y 
FT(I,J)=ZC(I,J)*SD(I,J) 

20  CONTINUE 

CALL  SOLVE(TD,FT,5,NB2,IE,JE) 

CALL  CHECK(TD,5,IE,JE) 

DO  30  I=NB2,IE 
DO  30  J=2,JE 

IF(TD(I,J).LT.l.D-9)  TD(I , J)=l .D-9 
EV(I , J)=TK(I , J)*TK(I , J)/TD(I , J)*CNU 
C30  CONTINUE 

C  CALL  CHECK(EV,6,IE,JE) 

C  DO  30  I=NB2,IE 

C  DO  50  J=5,JE 

C  IF(EV(I,J-l).LE.EV(I,J-2)  .AND.  EV( I , J- 1 ) . LT. EV(I , J) ) 

C  S  EV(I,J)=EV(I,J-1) 

C50  CONTINUE 

C  DO  90  I=NB2-1,1,-1 

C  DO  90  J=3,JE 

C  TK(I,J)=TK(I+1,J)*0.8 

C  TD(I,J)=TD(I+l,J)*0.8 

C  EV(I.J)=EV(I-rI,J)*0.8 

C  90  CONTINUE 


RETURN 

END 


274 


C  *  SUBROUTINE  WALLFN  IS  USED  TO  DEFINE  THE  BOUNDAUY  GONDITI 


c 

YD2: 

DISTANCE  OF  THE  FIRST  NODE 

c 

YD3: 

DISTANCE  OF  THE  SECOND  NODE 

c 

U3: 

VELOCITY  OF  SECOND  NODE 

c 

U2: 

FIRST  NODE 

c 

RKAR 

:  RECIPROCAL  OF  KARMAN  CONSTANT 

c 

E 

:  LOG  LAW  CONSTANT  E 

c 

RE 

:  REYONDS  NUMBER 

C  SHSQR:  SHEAR  STRESS  AT  FIRST  TWO 

SUBROUTINE  WALLFN 
IMPLICIT  REAL*8  (A-H,0-Z) 

S INSERT  BLOCK. MAIN 

DO  900  I=NB2,.NB3 
JJ=JB(I) 

JM1=JJ-1 

U3=U(I,JJ) 

yD3=DABS((Y(I,JJ)+Y(I.JMl))*0.5-Y(I,2)) 

YTD=DABS(Y(I,JM1)) 


ARG=RE*E*YD3 
SHEAR=0 . 1 
AVEL=DABS(U3) 
RKAR=1./AK 

DO  10  rri=l,  100 


ARSH=ARG*SHEAR 
DENUM=RKAR*( 1 .+DLOG(ARSH) ) 


SHNEW=(  RKAR*SHEAR+AVEL)/DENUM 

D IFF=DABS ( SHNEW - SHEAR ) 

SHEAR=SHNEW 

IF(  DIFF.LE. l.D-7)  GO  TO  20 

10  CONTINLX 
20  SIGN=U3/AVEL 
SHSQR=SHEAR 
DO  30  J=JM1,3,-1 

':T)2=DABS(0.5*(Y(I,J)+Y(I,J-1))-Y(I,2)) 

YT2=DABS(Y(I,J)) 

.ARG=RE*£*YD2*SHSQR 

SKEAR=SHSQR---SHSQR 


•n<fI,J)=SHEAR/DSQRT{CNU)*YT2/YTD 
TDf  I ,  J  i=RKAR"SHEAR---SHSQR/YT2 


YPLUS=ARG/E 
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IF(YPLIIS.GT.20.)  THEN 

U ( I , J) =RKAR*DLOG ( ARG ) *SHSQR*S IGN 

ELSE 

YD4=DABS(0.5*(Y(I,J+1)+Y(I,J))-Y(I,2)) 

U(I,J)=U(I,J+1)*YD2/YD4 

END  IF 


30  CONTINUE 
UTA(I)=SHSQR 

V(I,JM1)=V(I,JJ)*U(I,JM1)/U3 
900  CONTINUE 

RETURN 

END 

C 

C  SUBROUTINE  TRIDAG  TO  SOLVE  ALGEBRAIC  EQUATIONS 
C  SIMULTANEOUSLY  FOR  EACH  ROW  OR  COLOUM 

Q  '  '  '  «V  '  *  '  '/%  ~«V  jV  .*.  J  Vi  -^*^r  I  ‘  I  I  *  I  I  J-  *  r  I  S  V  -J-  I  ^  1^*^-  -J-  1  1^*^  •-  -J-  -J-  -J-  ^  •- 

c 

c 

SUBROUTINE  TRIDAG(IF,L,A,B ,C,D,V) 

IMPLICIT  REAL*8(A-H,0-Z) 

DIMENSION  A(99) ,B(99) ,C(99) ,D(99) ,V(99) ,BETA(99) ,GAMMA(9 
BETA(IF)=B(IF) 

GAMMA(IF)=D(IF)/BETA(IF) 

IFP1=IF+1 
DO  1  I=IFP1,L 

BETA(I)=B(I)-A(I)*C(I-1)/BETA(I-1) 

1  GAMMA(I)=(D(I)-A(I)*GAMMA(I-1))/BETA(I) 

V(L)=GAMMA(L) 

LAST=L-IF 
DO  2  K=1,LAST 
I=L-K 

2  V(I)=GAMMA(I)-C(I)*V(Ih-1)/BETA(I) 

RETURN 

END 


C. 

c 

C^’ 

c. 

c. 

c. 

c. 

c, 

c 


SUBROUTIN-E  MAIN3D 


MAIN3D  IS  USED  TO  ARRANGE  THE  COMMON  SPACE 
FOR  FLOWS  PAST  AN  AXISY^LMETRIC  BODY  WITH 
OR  WITHOUT  ANGLE  OF  ATTACK.  TIIE  MAXIMUM!  SPACE 
CAN  BE  INCREASED  OR  DECREASED  DEPENDING  ON 
THE  PROBLEM. 


■</>•</>■</> 
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SUBROUTINE  ^IAIN3D 
IMPLICIT  REAL*8  (A-H,  0-Z) 

COMMON  M( 2000000) 

COMMON/NUMBER/Nl ,  N2 ,  N3 ,  N4 ,  N5 ,  N'6 ,  N7  , N8  ,N9  ,  N 10 , 

N11,N12,N13,N14,N15,N16,N17,N18,N19,N20, 
N2 1 , N22 , N23 , N24 , N2S , N26 , N2  7 , N28 , N29 , N30 , 
N3 1 , N22 , N33 , N34 , N35 , N36 , N3  7 , N38 , N39 , N40 , 

S  N4 1 , N42 , N43 , N44 , N45 , N46 , N47 , N48 , N49 , N50 , 

S  N51,N52,N53,N54,N55,N56,N57,N58,N59,N60, 

S  N61,N62,N63,N64,N65,N66,N67,N68,N69,N70, 

S  N71,N72,N73,N74,N75,N76,N77,N78,N79,N80, 

$  N81,N82,N83,N84,N85,N86,N87,N88,N89,N90, 

S  N91,N92,N93,N94,N95,N96,N97,N98,N99,N100, 

$  N101,N102,N103,N104,N105,N106,N107,N108 

COMMON/ COEFl/  IE,JE,KE 
DATA  I PR/ 2/ 

MAXI=2000000 

Il=IE*JE*KE*irR 

I2=JE*KE*IPR 

I3=IE*KE*IPR 

I 4= IE* I PR 

I5=KE*IPR 

Nl=l 

N2=N1+I1 

N3=N2*I1 

N4=N3rIl 

N5=N4-rIl 

N6=N5+I1 

N7=N6+I1 

N8=N7-t-Il 

N9=N8+I1 

S10=N9+I1. 

NiI-=N10+!l 
Ni2-Nli-Ii 
Ni3=:;i2+Ii 
N14=N13+I1 
N15=Ni4+Il 
N16=N15-fIl 
Ni7=N16-<'I3 
N18=N 17+13 
N19=N18+I3 
N20=N19+I3 
N21=N20+I3 
N22=N2  l-*-I3 
S23=N'2:j-I3 
N2-=N23+I3 
S25=S2-+I3 
N26=N25*[3 
N2'=N'23+I2 
N23=N2r-r-I2 
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N29=N28-!-I2 

N30=N29+I2 

N31=N30+I2 

N32=N31+I2 

N33=N32+I2 

N34=N33+I2 

N35=N34+I2 

N36=M35+I2 

N37=N36+I2 

N38=N37+I2 

N39=N38+I2 

N40=N39+I2 

N41=N40+I2 

N42=N41+I2 

N43=N42+I2 

N'44=N43+I2 

N45=N’44+I2 

N’46=N45+I2 

N47=N46+I2 

S%8=N47+I2 

N'49=N48+I2 

N50=N49+I2 

N51=N50+I2 

N52=N51+I2 

N53=N52+I2 

N54=N53+I2 

N55=N54+I2 

N56=N55+I2 

N57=N56+I2 

N58=N57+I2 

N59=N58+I2 

S60=N59+I2 

N61=NdO+I2 

N62=N61+I2 

N63=N62+I2 

N64=N63+I2 

N’65=N64+I2 

N66=N65+I2 

N'67=N66+I2 

N'68=N67+I2 

N69=N68+I2 

N70=M69+I2 

N71=N70+I2 

N'72=N71+I2 

N73=N'72-}-I2 

S74=N7  3-5-12 

N75~'<  /  4-r  12 

S76=:\75-5-I2 

S7  7=S7  6-t-I2 

N78=N77-5-I2 

.S7"-N75-*-I2 


N80=N79+I2 

N81-N80+I2 

N82=N81+I2 

N83=N82+I2 

N84=N83+I2 

N85=N84+I2 

NS6=N85+I2 

N87=N86+I2 

N88=N87+I2 

N89=NS8+I2 

N90=N89+I2 

N91=N90+I2 

N92=N'91+I2 

N93=N92+I2 

N94=N93+I2 

N93=N94+I2 

N96=N95+I2 

N97=N96+I2 

N98=N97+I2 

N99=N98-rI2 

N100=N99+I2 

N10i=Ni00+I2 

Ni02=N101-i-I4 

N1C3=N102+I4 

N104=N' 103+14 

N105=S'i04+I/; 

Ni06=N105+I5 

Ni07=N106+I5 

N108=N107+I5 

N109=N108+I5 


IF (N 109  .GE.  MA:\I)  TriEN 

PRINT  10,  MAXI,  N109 

"  's  P 

MW  M 

NMAX=MAXT/  I?R 

NN=N109/IPR 

CALL  ZER0(M,Nm,N'N) 

CALL  MESH(M(N101)  ,M(N13)  ,M(Ni4)  ,M(N102)  .M(N'15 )  ,M(N108) , 
$  IE,JE,K£) 

CALL  STAG3D(M(N1)  ,M(N2)  ,M(:n3)  ,M(N4)  ,:-i(N5) , 

S  M(N6) ,M(N7) ,M(N8) ,M(N9) ,M(N10)  , 

S  M(N'll)  ,M(N12)  ,M(N13)  ,M(N14)  .M(N'l5) , 

S  M  (  N 1 6  )  ,  M  (  N 1 7 ) ,  M  ( N 1 8 ) ,  M  ( N 1 9 ') .  M  (  N  2  0 ) , 

S  M(N21)  ,M(N22)  ,M(N23)  ,>i(N24)  ,M(N25)  , 

S  MIN'26)  ,M(N27)  ,M(N'28)  .M(N’29)  .M(N30) , 

S  M(N31)  .M(N'32)  ,M(N'33)  ,M(N=34)  ,M(N'35) . 

5  M  C  N36 ) . M ( N3  7 ) , M ( N38 ) , M lN39 ) , M ( N40 ) , 

S  MfN'4i)  ,MIN421  ,M(N'43)  ,.'UN'44)  ,M(S45)  , 

S  MiN46)  .MfN47)  .MfN'43)  .M(N49 )  ,M(N50) , 

S  'KN'Sn  .MfN52!  .M(N'531  .M(N34)  ,;'{(N'55) , 

S  M(N56)  ,M(N57)  .M(N53)  .M(N'59)  .M(N60) , 


o  o  o  o 
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$  M(N’lOl)  ,M(N102)  ,M(N103)  ,M(N104)  ,M(N105) , 

$  M(N106),H(N:107),M(N108),IE,JE,KE) 

END  IF 

10  formatC  warning***  insufficient  storage  ’,/5X, 

$  '  MAXIMUM  =  ' ,110, 5X, 'PRACTICAL  =  ',  110) 

RETURN 
ENT) 


SUBRCUTINE  MESH  IS  USED  TO  READ  COORDINATES 


SUBROUTINE  MESH(XP , YP , ZP ,F1 ,F2 ,F3 , IPl , JPl , KPl) 
IMPLICIT  REAL*8vA-H,0-2) 

DIMENSION  YP( IPl, JPl, KPl) 

DIMENSION  ZP( IPl, JPl, KPl) 

DDENSION  F2(IP1,J?1,KP’) 

DIMENSION  XP(IPl) ,F1(I1 .) ,F3(KP1) 

COMMON/COEFA/  UI ,  VI,  Ml,  M2,  M3 
C 

0PEN(UNTT=11 ,FILE=' PHYSBODY' ) 

READ (11, 2005)  Ml, M2, M3 
R£AD(il,2006)(XP(I),I=l,IPl) 
READ(11,2006)(F1(I),I=1,IP1) 
READ(11,2006)(YP(1,J,1),J=1,JP1) 

READ(11,2006)  F2(l,l,l) 

CLOSE(il) 

2005  FORMAT(6I10) 

2006  FOR.MAT(5E14.7) 

C 

DO  422  K=1,KP1 
F3(K)=0. 

DO  421  J=1,J?1 
DO  421  1=1, IPl 
ZP(I,J,K)=K*1. 

Y?(I.J.:<)=YP(1,J,1) 

F2(I,J,K)=F2(1,1,1) 

421  CONTINUE 

422  CONTINUE 
RETURN 
ENT) 

SUBROUTINl  ZERO ( V , NMAX , NN ) 

IMPLICIT  REAL*8(A-K,0-Z) 

DIMENSION  V(NMAX) 

DO  10  1=1, NN 
10  V(I)=l.E"25 
RETURN 
END 


280 


C 

C....  SUBROUTINE  STAG3D 
C 


C....  STAG3D  IS  USED  TO  SOLVE  3D  FLOWS  PAST  AN  AXISYMMETRIC 

C _  BODY  WITH  STAGGER  GRID  SYSTEM. 

C 


SUBROUTINE  STAG3D (UO , VO , WO , AKEO , ADSO , ZUT , PR , PP , DH , 

S  BCU , BCV , BCW , YP , ZP , F2 , DPDYU , DPDYV , 

S  DPDZU , DPDZV , YP2 , YP3 , YP4 , VSF , WSF , UTAUA , 

S  BD,BU,BV,BW,DS,US,VS,WS, 

S  UHP,UT{F,VH,WH,UB,UP,UF,VB,VP,VF,WB,WP, 

S  AKEB,AKEP,ADSP,FU,GW,DF, 

S  CU,CV,CW,CU'Y,CWY,CUZ,CVZ,XP,F1,UL,UTL, 

S  TAUW,UTAU,YPP,F3,IPi,JPl,KPl) 

I.MPLICIT  REAL*8(A-H,0-Z) 

DIMENSION  U0(IP1,JP1,KP1) 

DIMENSION  V0(IP1,JP1,KP1) 

DIMENSION  WOdPl.JPl.KPl) 

D I MENS  ION  AKEO ( I P 1 , JP 1 . KP 1) 

DIMENS ION  ADSO ( IP  1 , JP 1 , KP 1 ) 

DIMENSION  ZUT(IP1,JP1,KP1) 

DIMENSION  PR(IP1,J?1,KP1) 

DIMJENSION  PP(IPi,JPl,KPl) 

DIMENSION  DH(IP1,JP1,KP1) 

DIMENSION  BCU(IP1,JP1,KP1) 

DI>ENSION  BCVdPl.JPl.KPl) 

DI>ENSION  BCWdPl.JPl.KPl) 

DIMENSION  YPCIPl.JPl.KPl) 

DIMENSION  ZPdPl,JPl,KPl) 

DIMENSION  F2dPl,JPl,KPl) 

DIMENSION  DPDYUCIPl.KPl)  .DPDYWdPl.KPl)  ,DPDZU(IP1,X?1), 
S  DPDZVdPl,KPl),YP2dPl,KPl),YP3dPl,KPl),YP4( 

S  VSFdPl,:<Pl),WSFdPl,KPl),UTAUAdPl,KPl) 

DIMENSION  BDfJPl.KPl) ,3U(JPL.KPl) .BV(JP1 ,KP1) ,BW(JP1 .KP 
S  DS(J?1,KP1) .GG(JPl.KPl) 

D I MENS  ION  US ( JP i . KP  n , VS ( JP I , KP 1) , WS ( JP 1 . KP 1) , 

S  UHP ( JP 1 . K?  n . UHF ( JP I . K? I ) , VH ( JP I . KP  n . WH  f  JP I , 

S  U3(JPl.K?n  ,UP(JPl.K?l)  .UTCJPl.KPl) , 

S  V3(JPI,K?n  ,V?(JPI,KP1)  ,VT(JP1.KP1) , 
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C 


$ 

DIMENSION 

$ 

DIMENSION 

$ 

DIMENSION 

$ 

DIMENSION 
COMMON  M(l) 


WB(JP1,KP1),WP(JP1,KP1),WF(JP1,KP1) 
FU(JP1,KP1).GW(JP1,KP1),DF(JP1,KP1), 
AKEB(JP1,KP1),AKEP(JP1,KP1),ADSP(JP1,KP1) 
CU(JP1,KP1) ,CV(JP1,K?1) ,CW(JP1,KP1) , 
CUY(JP1,KP1),CWY(JP1,KP1),CUZ(JP1,KP1),CVZ(JP 
XP(IPl) ,F1(IP1) ,UL(IP1) ,UTL(IP1) , 

TAUW(K?1) ,UTAU(KP1) ,YPP(KP1) ,F3(KP1) 

AA(99) ,BB(99) ,CC(99) ,DD(99) ,T(99) 


COMMON/NUMBER/N 1 , N2 , N3 , N4 , N5 , N6 , N7 , N8 , N9 , N 10 , 

N11,N12,N13,N14,N15,N16,N17,N18,N19,N20, 
N2 1 , N22 , N23 , N24 , N25 , N26 , N2  7 , N28 , N29 , N30 , 
N3 1 , N32 , N33 , N34 , N35 , N36 , N3  7 , N38 , N39 , N40 , 
N4 1 , N42 , N43 , N44 , N45 , N46 , N47 , N48 , N49 , N50 , 
N5 1 , N5  2 , N5  3 , N54 , N55 , N5  6 , N5  7 , N58 , N5  9 , N60 , 

S  N6 1 , N62 , N63 , N64 , N65 , N66 , N67 , N68 , N69 , N70 , 

S  N71 ,N72 ,N73 ,N74,N75 ,N76 ,N77 ,N78 ,N79 ,N80 , 

S  N81 ,N82 ,N83 ,N84 ,N85 ,N86 ,N87 ,N88 ,N89 ,N90 , 

S  N9 1 ,  N9 2 ,  N9 3 , N94 , N95 , N9 6 , N9 7  ,  N9 8 ,  N99  , N 100 , 

S  NlOl ,N102 ,N103,N104,N105 ,N106 ,N107 ,N108 

C0MM0N7C0EF2/ RE , TAU , I PR INT , ITERT , CD , AK , E 
C0MM0N/C0EF3/NA23 ,NSR ,LOT,NTS , INI .NTY 
C0MM0N/C0EF4/UI ,VI , Ml, M2, M3 

COMMON/UWl/ IMAX ,  JMAX ,  KMAX ,  JPP ,  KPP ,  JA ,  JAMl ,  I ,  KMl ,  KMM 


JPP=JP1 

XPP=KP1 

IMAX=IP1-1 

JMAX=JP1-1 

KMAX=KP1-1 

CD2=DSQRT(CD) 

CD4=DSQRT(CD2) 

CD3=CD4*CD4*CD4 


CD2I=1./CD2 
REI=1./RE 
TAU 1=1. /TAU 

0PEN(UNIT=6,  FILE='OUPT’) 
Vs’RITE(6,1232)RE,TAU 

1232  F0RMAT(//5X, 'RE  =' ,F10 . 1 ,5X , 'TAU  =',F6.3//) 
raiTE(6, 2005)  (XP(n,  1=1,  IPl) 


M21=M2-1 
M23=M2-3 
M31=M3-1 
KM  1=2 
:\M.M=2 

IF(NA25.£Q.31  THEN 

k:!1=k::ax-i 

KMM=3 
END  IF 
. TERA“ j 


c 
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ITPP=2 

EPE=0.0001 

ABCD=0.06 

J0PT=3 

C -  INITIAL  PROFILES  AT  INLET  STATION 

IF(INI  .EQ.  1)  THEN 
DO  935  K=1,KP1 
DO  935  J=1,JP1 
VIV=ZP(1,J,K) 

VIW=.5*(ZP(l,J,K)-fZP(l,J,k+l)) 

UC'1,J,K)=UI 

VO( 1 , J ,K)=VI*DSIN(VIV) 

WO(l,J,K)=VI*DCOS(VIW) 

935  CONTINUE 
ELSE 

OPEN (UNIT= 11, FI LE=' GUESS ' ) 

END  IF 
I?R=0 

CALL  ULUTL(M(N101),M(N103),M(N104),RE,I?1,M1,M21,ABCD) 

DO  237  K=1,KP1 
237  LTAUA(M3 1 , K)=ABCD 
C-—  RETURN  POINT  OF  GLOBAL  SWEEPS 
DO  4000  IT=1,ITERT 
PRINT  2500,  M3 

2500  FORMATC  STARTING  POINT  OF  ILTIBULENT  FLOW  AT  — 15) 
IPR=IPR+1 
DO  38  J=1,JP1 
DO  38  K=1,KP1 
UHP(J,:<)=UI 
38  CONTIN^^E 

C— —  RETLTIN  POINT  OF  MARCHING  PROCESS  FOR 
C-—  CON'VECTIVE  TRANSPORT  EQUATIONS 
DO  3000  I=2,I>LAX 
JA=2 

IF(I.GE.M3)  JA=JOPT 
JAM1=JA-1 
IF(IT.EQ.l)  THEN 
DO  103  1=1, IPl 
DO  103  K=1,KP1 

YP2(I,K)=YP(I,l,K)**2-5-YP(I,JAMl,K)**2-2.*YP(I,i,:<)*Y?(I, 
$  *DC0S(Z?(I,JAM1,K)-ZP(I,  !,:<)) 

YP3  ( I ,  :< )  =YP  ( 1 , 1 ,  K  )  *=24-YP  ( I ,  J A ,  K  ) **2  -  2 .  * Y?  ( 1 , 1 .  K  ) *YP  ( I ,  JA 
S  *DCOS(ZP(I,JA,K)-ZP(I, !,;<)) 

YP4(I  ,K)=YP(1 , 1  ,K)**2+YP(I ,  JA^i  ,K)**2-2.*YP(1 , 1,:<)*YP(I , 
S  *DCOS(ZP(I,JA+l,K)-ZP(I.l,K)) 

103  CONTISX-E 

DO  1202  J=1,J?1 
DO  1202  ;<=1,K?1 
L-0(I,J.K)=U0(I-1.J.K) 

V0(I.J.:<)=V0{I-i,J,K) 

WO(  I  ,J  I  - 1 ,  J  ,K) 
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AKE0(I,J,K)=AKE0(I-1,J,K) 

ADS0(I,J,K)=ADS0(I-1,J,K) 

U0(I+1,J,K)=U0(I,J,K) 

V0(I+1,J,K)=V0(I,J,K) 

W0(I+1,J,K)=W0(I,J,K) 

AKE0(I+1,J,K)=AKE0(I,J,K) 

ADS0(I+1,J,K)=ADS0(I,J,K) 

1202  CONTINUE 

IF(I  .EQ.  Ml)  THEN 
DO  1203  K=1.KP1 
U0(M1,1,K)=0. 

V0(M1,1,K)=0. 

WO(M1,1,K)=0. 

1203  CONTINUE 
END  IF 
END  IF 

C----  DEFINE  THE  BODY  VISCOSITY  DISTRIBUTION 
IF(I  .GE.  M3)  THEN 
DO  149  K=2,KMAX 
DO  149  J=1,JP1 

149  ZUT(I.J,K)=CD*AKEO(I,J,K)*AKEO(I,J,K)/ADSO(I,J,K) 

DO  150  K=2,KMAX 

DO  150  J=4,JP1 

IF(ZUT(I,J-1,K).LE.ZUT(I,J-2,K).AND.ZUT(I,J*1,K).LT. 
SZUT(I,J,K))  ZUT(I,J,K)=ZUT(I,J-1,K) 

150  CONTINUE 

DO  143  J=1,JP1 
ZUT(I,J,1)=ZUT(I,J,KMM) 

143  ZUT(I,J,KP1)=ZUT(I,J,KM1) 

IF(IT.EQ.l)  THEN 
DO  198  J=1,JP1 
DO  198  K=1,KP1 
198  ZUT(I+1,J,K)=ZUT(I,J,K) 

END  IF 
END  IF 

IFCIT.GT. l.AND. I.LT.M3)  THEN 
DO  189  J=1,JP1 
DO  189  K=1,KP1 

AKE0(I,J,K)=AKE0(I+1,J,K)*0.8 
ADSOCI,J,K)=ADSO(I+i,J,K)*0.8 
189  ZUT(I,J,K)=ZUT(I+1,J,K)*0.3 
END  IF 

C----  RESET  THE  SECTION  VARIABLES 
DO  190  K=1,KP1 
DO  190  J=1,JP1 
UB(J,;<)=i:0(I+l,J,K) 

LT(J,K)=L'0(I,J,K) 

LT(J.:<)=U0(I-1,J.K) 

VB(J,:<)=V0(I+1,J,K) 

VP(J,K)=VO(I,J,K) 

VTfJ,K)=VO< I-l,J,K) 


WB(J,K)=W0(I+1,J,K) 

WP(J,K)=WO(I,J,K) 

WF(J,K)=W0(I-1,J,K) 

AKEB(J,K)=AKE0(I+1,J,K) 

AKEP(J,K)=AKEO(I,J,K) 

ADSP(J,K)=ADSO(I,J,K) 

190  CONTINUE 

C----  FA  COEFFICIENTS  OF  MOMENTUM  EQUATIONS 

CALL  FAUW(M(N101)  ,M(N102)  ,M(N51)  ,M(N52)  ,M(NS3)  ,M(N26) , 
$  IP1,JP1,KP1,NA23,REI,TAUI) 

DO  900  ITA=1,ITERA 
IF(I.GE.M3.AND.I.LT.M2)  THEN 

C----  BOUNDARY  CONDITIONS:  WALL  FUNCTION 
XXI=XP(I+1)-XP(I) 

DO  155  K=2,KMAX 
R=0.5*(YP(I,1,K)+YP(I+1,1,K)) 

IF(NA23  .EQ.  2)  R=l. 

YXI=YP(I+1,1,K)-YP(I,1,K) 

YET=0.5*(YP(I+1,2,K)-YP(I+1,1,K) 

S+YP(I,2,K)-YP(I,1,K)) 

YZT=0.25*(YP(I+1,1,K+1)-YP(I+1,1,K-1) 

S+YP(I,1,K+1)-YP(I,1,K-1)) 

RZXI=R*(ZP(I+1,1,K)-ZP(I,1,K)) 

RZET=0.5*R*(ZP(I+1,2,K)-ZP(I+1,1,K) 

S+2P(I,2,K)-2P(I,1.K)) 

RZZT=0.2S*R*(ZP(I+1,1.K+1)-ZP(I+1,1,K-1) 

S+ZP(I,1,K+1)-ZP(I,1,K-1)) 

B 1  1=YET^-R2ZT- YZT'-RZET 

B  12=YZT-"-RZXI  -YXI*RZZT 

B  13=YXI*RZET-YET'-RZXI 

B22=XXI*RZZT 

B23=-XXI*RZET 

B32=-XXI*YZT 

B33=XXI*YET 

G11=XXI*XXI+YXI*YXI+RZXI*RZXI 

G22=YET--YET+RZET’’-RZET 

G33=YZT'TZT+R2ZT-^RZZT 

G12=YXI*YET+RZXI*RZET 

G13=YXI*YZT+RZXI*RZZT 

G23=YE'FTZT+RZET*RZZT 

G=G  1  l*G22*G33+2 .  ••G 1 2*G  1 3 ••G23  -G23*G23*G  1 1  - 
SG13*G13*G22-G12*G12*G33 
GI=1./G 

A11=GI*(G22*G33-G23*G23) 

A22=GI*(G11*G33-G13*G13) 

A3  3=G  I*  ( G 1 1  •••  G2  2  -G 1 2  ■•G 1 2 ) 

A 1 2=G I" ( G 1 3*G2  3 -G 1 2*G3  3 ) 

A 1 3=GI--  ( G 1 2--G23  -G 1 3--G22 ) 

A2  3=G  I "  ( G 1 Z*  G 1 3  -G  2  3-- G 1 1 ) 

AJI=DSQRTfGI) 

DGll=DSQRTfGlI) 
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DG33=DSQRT(G33) 

C0SA=DABS(B22*YET+B32*RZET)/DSQRT(G22*G*A22) 
GRADP=(PR(I+1,1,K)-PR(I,1,K))/(XP(I+1)-XP(I))*C0SA 
IF(I. GE.M23.0R.IT.lt. 5)  GRADP=0. 

U3=UP(JA,K) 

V3=0 . 25* (VP ( JAMl , K)+VB ( JAMl , K) 

$+VP(JA,K)+VB(JA,K)) 

W3=0.25*(WP(JA,K-1)+VB(JA,K-1) 

?+WP(JA,K)+WB(JA,K)) 

Q3=DSQRT ( U3*U3+V3*V3+y 3*W3 ) 

Q3XI=A JI*DG1 1*B 1 1*U3 
Q3ZT=AJI*DG33*(B13*U3+B23*V3+B33*W3) 

UTAU(K)=UTAUA(I,K) 

IF(IT.EQ.l)  UTAU(K)=(JTAUA(I-1,K) 

DO  555  IJK=1,50 

DPR=GRADP/ (RE*UTAU(K)*UTAU(K)*UTAU(K) ) 

DPR=DMAX1(DPR,EPE) 

DTAU=0 . 5*DPR 

SQRT3=DSQRT( 1 . +DTAU*RE*UTAU(K)*DSQRT(YP3 ( I , K) )*COSA) 
UTAUN=Q3/ ( (DL0G(4 . *(SQRT3- 1 . )/ (SQRT3+1 . ) /DTAU) 

S+2 . *SQRT3 -  2 . ) / AK+5 . 45+3 . 7*DPR) 
IF(DABS(UTAUN-UTAU(K)).LT.1.0D-5)  GO  TO  556 
UTAU(K)=UTAUN 

555  CONTI.NUE 

556  TAUW(K)=2.*UTAU(K)*UTAU(K) 
YPP(K)=RE*UTAU(K)*DSQRT(YP2(I,K))*C0SA 
SQRT2=DSQRT( 1 . +DTAU*YPP (K) ) 

Q2=UTAU (K)*((DL0G(4.*( SQRT2 - 1 . ) / ( SQRT2+ 1 . ) / DTAU ) 

S+2. *SQRT2-2. )/AK+5. 45+3. 7*DPR) 

UTAUK=0 . 5* (UTAUA ( I - 1 , K)+UTAU (K) ) 

AKEPCJAMl ,K)=UTAUK*UTAUK*CD2I 

ADSP ( JAMl , K)=UTAUK*UTAUK*UTAUK/ (AK*DSQRT(YP2 (I , K) )*COSA) 
Q2XI=Q3XI*Q2/Q3 
Q2ZT=Q3ZT-*Q2/Q3 
UP(JAM1,K)=Q2XI*XXI/DG11 
VSF(I,K)=Q2XI*YXI/DG11+Q2ZT*YZT/DG33 
VSF(I,K)=Q2XI*RZXI/DG11+Q2ZT*RZZT/DG33 
155  CONTINUE 

DO  151  K=2,KMAX 
UTAUA(I,K)=UTAU(K) 

V2=0.5*(VSF(I,K)+VSF(I-1,K)) 

HN=0.5*(YP4(I,K)-YP2a,K)) 

HS=0.5*(YP3(I,K)-YP2(I,K)) 

VP(JAM1,K)=(HN*V2+HS*V0(I,3,K))/(HN+HS) 

IF(K  .EQ.  KMAX)  GO  TO  151 

WP(JAMl,K)=0.25*(VSF(I,K)+WSF(I-l,K)+WSF(r,K+l)+WSF(I,K+ 
151  CONTINUE 

UP(JAM1,1)=UP(JAM1,KMM) 

UP ( JAM  1 , KP  n  =UP  f  JAM  1 , KM 1 ) 

VP(JA.M1 ,  l)=VP(JAMl  ,KMM) 

VP  ( J  AM  1 .  XP 1)  =VP  ( J  AM  1 .  .KM  1 ) 
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WP(JAM1,1)=-WP(JAM1,2) 

WP(JAMl,mX)=-WP(JAMl,KMl) 

AKEP ( JAM 1 , 1 ) =AKE P ( JAM 1 , KMM ) 

AKEP(JAM1,KP1)=AKEP(JAM1,KM1) 

ADSP ( JAMl , 1 )=ADSP ( JAMl , KMM) 

ADSP(JAM1,KP1)=ADSP(JAM1.KM1) 

END  IF 

DO  304  K=1,KP1 
DO  304  J=1,JP1 
US(J,K)=UP(J,K) 

VS(J,K)=VP(J,K) 

WS(J,K)=WP(J,K) 

304  CONTINUE 

C----  CALCULATE  THE  STAR  VELOCITY  FIELD 

CALL  FASVEL(PR.M(N16) ,M(N17) ,M(N18) ,M{N19) ,M(N26) ,M(N54) 

$  M(N55) ,M(N56) ,M(NS7) ,M(N58) ,M(N59) ,M(N60) , 

S  M(N32) ,M(N33) ,M(N34) ,M(N41) ,M(N27) ,M(N28) , 

$  M(N29) ,M(N30) ,M(N53) ,M(N31) , 

?  1P1,JP1,KP1,NA23) 

C -  CALCULATE  THE  PRESSURE -CORRECTION  FIELD 

179  DO  797  J=1,JP1 
DO  797  K=1,KP1 
PP(I-1,J,K)=0. 

PP(I,J,K)=0. 

797  PP(I+1,J,K)=0. 

DO  798  ITER=1,ITPP 

CALL  PRESU(PP,M(N31) ,M(N10) ,M(N11) ,M(N12) , 0 , IPl , JPl ,KP1) 

DO  796  J=1,JP1 

PP(I,J,1)=PP(I,J,KMM) 

796  PP(I,J,KP1)=PP(I,J,KM1) 

798  CONTINUE 

c —  CORRECT  \t:locity  field  by  PP 

CALL  FAVELC0R(PP,M(N40) ,M(N43) ,M(N46) ,M(N32) ,M(N33) ,M(N3 
S  M(N54) ,M(N55) ,M(N56) ,M(N29) ,M(N20) ,M(N21) , 

$  IP1,JP1,KPI,NA23) 

900  CONTINUE 

C -  CALCULATE  THE  PSEUDO-VELOCITY  FIELD 

CALL  FAHVEL(M(N35) ,M(N36) ,M(N37) ,M(N38) ,M(N43) ,M(N26) ,M( 
S  M(N58) ,M(N59) ,M(N60) ,M(N16) ,M(N17) ,M(N18) ,M(N19) , 

S  M(N27) ,M(N28) ,M(N29) ,M(N30) ,M(N53) , 

$  IP1,JP1,KP1,NA23) 

IF(I  .GE.  M3)  THEN 

C -  CALCULATE  THE  TURBULENT  QUANTITIES 

CALL  FAUVW(M(N101) ,M(NT02) ,M(N51) ,M(N52) ,M(N53) ,M(N26) , 

S  IP1,JP1,KP1,0,REI,TAUI) 

END  IF 

C----  UPDATE  TRANSPORT  QUANTITIES  AT  UPSTREAM  STATION 
DO  679  K=1,KP1 
DO  679  J=1,JP1 
UO(I,J,K)=UP(J,K) 

VO(I,J,K)=VP(J,K) 


o  o  o  o 
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WO(I,J,K)=WP(J,K) 

AKEO(I,J,K)=AKEP(J,K) 

679  ADSO(I,J,K)=ADSP(J,K) 

IF(I.EQ.IMAX)  THEN 
DO  373  K=1,KP1 
DO  373  J=1,JP1 
UO(IPl,J,K)=UO(IMAX,J,K) 

VO(IPl,J,K)=VO(IMAX,J,K) 

WO(IPl,J,K)=WO(IMAX,J,K) 

AKEO( IPl , J , K)=AKEO (IMAX , J ,K) 

ADSO(IPl,J,K)=ADSO(IMAX,J,K) 

ZUT(IP1,J.K)=ZUT(IMAX,J,K) 

373  CONTINUE 
END  IF 

IFCIPR  .EQ.  IPRINT)  THEN 
WRITE(6,2)IT,I,XP(I) ,TAU 

2  FORMAT(//5X, 'NO.  OF  ITERATION  =', 13 , 5X, ' STATION' , 13 
$,5X,'X  ='F7.4,5X, 'TAU  =',F6.3) 

IF(I.LT.M3.0R.I.GE.M2)  GO  TO  2222 
DO  2098  K=2,KMAX 

2098  WRITE(6,2099)  K , YPP(K) ,UTAU(K) ,TAUW(K) 

2099  FORMAT ( 5X, 'K=' , 15 , 5X, ' YPLUS=' ,E12.4,5X, 'UTAU=' ,E12.4,5X, 
S'TAUV=' ,E12.4) 

2222  WRITE(6,3001) 

3001  FORMAT(/5X, 'VELOCITY  U='//) 

DO  3002  K=2,KMAX 

3002  WRITE(6,2007)  (UP(J ,K) , J=1 , JPl) 

WRITE (6, 3003) 

3003  FORMAT (/5X, 'VELOCITY  V='//) 

DO  3004  K=2,KMAX 

3004  WRITE(6,2007)  (VP(J ,K) , J=1 , JPl) 

WRITE (6, 3005) 

3005  FORMAT (/5X, 'VELOCITY  W='//) 

DO  3006  K=2,KMAX 

3006  WRITE(6,2007)  (WP(J,K) ,J=1,JP1) 

WRITE (6, 3007) 

3007  F0RMAT(/5X, 'TL-RBULENT  KINETIC  ENERGY='//) 

DO  3008  K=2,KMAX 

3008  WRITE(6,2007)  (AKEP( J ,K) , J=1 , JPl) 

WRITE (6, 3009) 

3009  FORMAT (/5X, 'TURBULENT  DISSIPATION=’ // ) 

DO  3010  K=2,KMAX 

3010  WRITE(6,2007)  (ADSP( J ,K) , J=1 , JPl) 

WRITE(6,3011) 

3011  F0RMAT(/5X, 'PRESSU-RE  ='//) 

DO  3012  K=2,KMAX 

3012  WRITE(6,2007)  (PR(I , J,K) ,J=1 ,JP1) 

C  WRITE(6,3013) 

C  3013  FORMAT (/5X, 'MASS  SOURCE  ='//) 

C  DO  3014  K=2.KMAX 

C  3014  WRITE(6,2007)  (DS(J ,K) , J=l , JPl) 


WRITE (6, 30 15) 

3015  FORMAT (/5X, 'EDDY  VISCOSITY  “'//) 

DO  3016  K=2,KMAX 

3016  WRITE(6,2007)  (ZUT(I , J,K) , J-l , JPl) 

END  IF 

3000  CONTINUE 
2007  F0RMAT(6E12.4) 

IF(IPR  .EQ.  IPRINT)  IPR=0 
C----  UPDATE  THE  PRESSURE  FIELD 

CALL  FAPRESS(PR,PP,M(N9) ,M(N31) ,M(N20) ,M(N21) ,M(N22) ,M(N 
$  IP1,JP1,KP1,J0PT) 

WRITE(6,4111)  IT, M3 

4111  F0RMAT(/5X,'N0.  OF  ITERATION  =', 15 ,5X, 'M3  =', 15) 
WRITE(6,4110) 

4110  F0RMAT(/5X, 'PRESSURE  DISTRIBUTION  ALONG  THE  WALL') 

DO  4009  K=2,KMAX 

WRITE(6,2005)  (PR(I , l.K) ,I=1,IP1) 

4009  CONTINUE 

WRITE(6,4112) 

4112  F0RMAT(/5X, 'SKIN-FRICTION  COEFFICIENT') 

DO  4221  K=2,KMAX 

DO  4222  I=M1,M21 
IF(I  .LT.  M3)  THEN 
UT=UTL( I ) '••UO(1 , 2  , K) /UL( I ) 

ELSE 

UT=UTAUA(I ,K) 

END  IF 

TAUV(I)=2.*UT*UT 
4222  CONTINUE 

WRITE (6, 2005)  (TAUW(I) , I=M1 ,M21) 

4221  CONTINUE 

WRITE(6,4113) 

4113  F0RMAT(/5X, 'CENTERLINE  VELOCITY') 

DO  4140  K=2,KMAX 

WRITE ( 6 , 2005 )  (UO ( I , 1 , K) , I=M2 , IMAX) 

IF(IT  .GT.  2)  THEN 
IF(UO(M3,2,K) .LT.UL(M3+1))  M3=M3+1 
IF(U0(M3,2,K) .GT.UO(M31,2,K))  M3=M3-1 
ENT)  IF 

VSF(M1-1,K)=V0(M1-1,2,K) 

4140  CONTINTT 
4000  CONTINUE 

IF(IT  .LT.  ITERT+9)  GO  TO  9999 
DO  5001  1=1, IPl 
DO  5001  J=1,JP1 
DO  5001  K=1,KP1 

5001  WRITE(6,2005)  UO(I , J,K) ,VO(I ,J,K) ,VO(I , J,K) ,AKEO(I , J,K) 
S,ADSO(I,J,K),?R(I,J,K) 

2005  FORMAT (6E 12. 4) 

9999  CLOSE  (11) 

CLOSE  (6) 


o  o  o  o 


cal:,  exit 

END 


Jm  Jl* 


....  SUBROUTINE  ULUTL 


SUBROUTINE  ULUTL(XP ,UL,UTL,RE , IPl ,Mi ,M21 ,ABCD) 
IMPLICIT  REAL*8(A-H,0-Z) 

DIMENSION  XP(IPl) ,UL(IP1) ,UTL(IP1) 

ABC=0. 33206 

DO  35  I=M1,M21 

XX=0.5*(XP(I)+xr(I+l)) 

REX=DSQRT(RE*XX) 

UTL( I )=DSQRT( ABC/REX) 

DO  33  1=19,29 

UL(I)=1.0 

UL(30)=0.9994 

UL(31)=0.9852 

UL(32)=0.92S0 

UL(33)=0.8200 

UL(34)=0.7050 

UL(35)=0.6027 

UL(36)=0.5275 

UL(37)=0.4862 

ABCD=0 . 06 

RETURN 


aA#  ft  ^  w  «/« 


.Tftftb.l.a.ft'^.'fttAftftA.ftU.l.ftUfti.ftL.JI.JI.ftU.X* 


SUBROUTINE  FAU'VW 


SUBROUTINE  FAUTl*' (XP ,  FI , FU , GW .  DF , GG , 

S  IPl, JP1,KP1.NA23,R£I, TAUT) 

IMPLICIT  R£AL*8(A-H,0-Z) 

COMMON  M(l) 

COMMON/ UW 1  /  I.MAX ,  JMAX ,  KMAX ,  JPP .  KPP ,  JA ,  JAM  1 , 1 ,  KM  1 ,  KMM 

COMMON/UVWl / A 1 , A2 . A3 , 44 . UU , W , WW 

C0MM0N/UTV3/REFF ,  ZUTP ,  ZU  iX . .  ZUTET .  Z'.'TZT .  FXl ,  FY2  , FZ3 

C0MM0N/U'VW'7/R,XXI  ,YXI  ,YET,Y7T.R7'T  .RZET,K22T 

C01LM0N/U'VW8/C1  ,C2  ,CEFFK  .CEFFD 

COMMON/NUMBER/NT  ,N2  ,N3  ,N4  ,N5  ,.N6  ,.N7  .N8  ,N9  ,N10  , 

S  NU,N12.ST3,N1.'.  ,;:i5  ..NT6  ,N17  ,N18  ,.NT9  ,N20  , 

S  N21 ,N22 .N23 ,N24 ,N25 .N26 ,N27 ,N28 ,N29 ,N30 , 

S  N31  .N32  ,N33  ..S34  ,N35  ,N36  ,N37  .N38  ,N39  ,N40  , 

S  N4 1 ,  N4 2 ,  .n4 3 ,  N44 ,  N4 5  .  .\’46 ,  N4 7  ,  N48  ,  N49  ,  N5 0  , 

S  S5  1  ,N52  ,N53  ,N54  ,N55  ..N56 ,  .NS  /  ,N58  ,N59  ,N60  , 

S  S6  . ,  N6 2  .  N63  .  N64  , N6 5  ,  N66  ,  .M6 7  ,  N68  ,  N69  ,  N70  , 

S  N7 1 .N72 ,N73 ,N7- ,N75 .N76 ,N77 ,N78 ,N79 .N80 , 


</>•</>■</>-</>■</>-</>  •</>■</>  -</>  </> 
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N8 1 , N82 , M83 , N84 , N85 , N86 , N8  7 , N88 , N&9 , N90 , 

N9 1 , N9  2 , N9  3 , N94 , N9  5 , N9  6 , N9  7 , N9  8 , N9  9 , N 100 , 
N101,N102,M103,N104,N105,N106,N107,N108 
DIMENSION  FU(JP1,KP1).0W(JP1,KP1).^/(JP1,KP1),GG(JP1,KP1 
XP(IP1),F1(IP1) 


FA  MOMENTUM  EQUATION 


IF(NA23  .N£.  0)  THEN 
MM=1 

X-MOffiNTUM 
XXI=XP(I+1)  -XPd) 

Al=2. 

A2=l. 

A3=l. 

A4=l. 

FX1=0.5*(F1(I)!-F1(T+1)) 

CALL  FACST(M(N1)  ,M,iil3}  ,M(N1*  )  ,M(N15)  ,:'.(N108)  ,M(N6)  , 
M(N39)  ,M(N40)  ,M(N'41)  ,M(N42)  ,M(N43)  ,M(N44) , 
M(N45) ,M(N4r ) ,M(N47) ,M(N48) ,H(N49) ,M(N50) , 
M(NIOO) ,M(Nbi) ,M(N62) ,M(N63) ,M(N64) ,M(N65) , 
M(N66)  ,M(N67)  ,M(N68)  ,M(N69)  ,M(S’70)  ,M(N71)  , 
M(N72) ,M(N73) ,M(N28) ,M(N27) ,M(N54) ,M(N57) , 
M(N39),M(N10), 

5  IP1,JP1.KP1,MM,NA23,R£I,TAUI) 

MM=2 

Y- MOMENTUM 

XXI=0.5*(XP(I+i)-XP(I-l)) 

Al'-l. 

A2=2. 

!X:=F1(I) 

CALL  FACST(M(N2  > .1(NT3) ,M(N14) ,M(N15) ,M(N108) ,M(N6) , 
M(N39)  ,M(N40)  ,M(N41)  ,M(N42)  ,M(N43)  ,M(N'44) , 
M(N45)  ,M(N46)  ,M(N47)  ,M(N48)  ,M(N'49)  ,M(N50) , 
M(NIOO) ,M(N74; ,M(N75) ,M(N76; ,M(N77) ,M(N75) , 
M(N79) ,M(N80) ,M(N81) .M(N82) ,M(N83) ,M(N84) , 
M(N85) ,M(N86) ,FU,M(N29) ,M(N55) ,M(N60) , 
M(N59),M(Nll;, 

IPl,JPl,KPi,M’'l,NA23,REI,TAUI) 

.EQ.  3)  THEN 


S 
$ 

S 
$ 

$ 

S 
$ 

IF(NA23 

MM=3 

Z -MOMENTUM 

A2=l. 

A3=2. 

CALL  FACST(M(N3) ,M(NT3) ,M(N14) ,M(NT5) ,M(N108) ,M(N6) , 

S  M(N39)  ,M(N40)  ,.’1(N41)  ,M(N42)  ,M(N43)  ,M(N44) , 

S  M(N45) ,M(N46) ,M(N47) ,M(N48) ,M(N49) ,M(N50) , 

S  M(NIOO)  ,:!(N87)  ,M(N88)  ,.'1(N89)  ,M(N90)  ,M(N91) , 

S  M(N92)  ,M(N'93)  ,M(N94)  ,M(N95 )  ,M(N96)  ,M(N97) , 

S  M(N98)  ,M(N99)  ,r,W,M(N30)  ,M(N56)  ,M(N58) , 

S  M(N59),M(N12), 


o  o  o 


$  I?1 , JPl , KPl ,MM , NA23 , REI ,TAUI ) 

END  IF 

----  CALCLTA'IE  THE  MASS  SOURCE  Al^D  PRESSURE  GRADIENl'S 


DO  500  J=JA,JMAX 
DO  500  K=2,KMAX 

DF(J>K)=FU(J,K)-FU(J-1,K)+GW(J,K)-GW(J,K-1) 
500  CONTINUE 


C 

ELSE 

C-  — -  TURBULENT  EQUATION 

rnjw=2 

no  697  K=l,KPi 
DO  697  J=1,JP1 
697  GG(J,K)=0. 

MM=4 

C -  K-EQUATION 

XXI=0.5*(XP(I+it-XP(I-l)) 

FX1=F1(I) 

Al=l. 

A2=l. 


A4=CEFFK 

CALL  FACST(M(N4) ,M(N13) ,M(N14) ,M(N15) ,M(N108) ,M(N6) , 

S  M(N39) ,M(N40) ,M(N41) ,M(N42) ,M(N43) ,M(N44) , 

S  M(N45) ,M(N46) ,M(N47) ,M(N48) ,M(N49) ,M(N50) , 

S  M(NIOO) ,M(N87) ,M(N88) ,M(N89 ) ,M(N90) ,M(N91) , 

S  M(N92) ,M(N93) ,M(N94) ,MCN95) ,M(N96) ,M(N97) , 

S  M(N98) ,M(N99) ,GW,M(N30) ,M(N56) ,M(N58) , 

S  M(N5  .,M(N12), 

S  IPl,  :P1,K?1,MM,NA23,REI,TAUI) 

CALL  SVEL(M(N49) ,GG,M(N4) ,M(N87) ,M(N88) ,M(N89) ,M(N90' .M> 

S  M(N92)  ,M(N93}  ,M(N94)  ,.M(N95)  ,M(N96)  ,M(N97)  ,M(.N9 

S  M(N99) ,M(N20) ,M(N21; .M(N22) ,M(N29) , 

S  IPl,JPl,KPl,nWwM,3,l) 

MM=5 

-  D- EQUATION 
A4=CEFFD 

CALL  FACST(M(N5) ,M(N13) ,M(N14) ,NfN15) ,M(N108)  ,M(N6)  , 

S  M(N39) ,M(N40) ,M(N41) ,M(S42) ,M(S43) ,M(N44) , 

5  M(N45) ,;i(N46) ,M(N47) ,M(N48) ,M(N49) ,M(N50) , 

S  M(SIOO)  /.1.N37)  ,M(N88)  .M(N89)  .M(N90)  ,M(N'91) , 

S  M(NS2) ,M(N93) ,M(N94) ,M(N95) ,M(N96) ,M(N97) , 

S  MfN98) ,M(N99) ,GW,M(N30) ,M(N56) ,M(N58) , 

S  M(N59),M(N12), 

3  I P I , J? 1 . KP I , MM , NA23 . RE I . TAUI ) 

CALL  SVEL(MfN50)  ,GG.M(N5)  .M(N87 )  .MfN88)  ,Mf.N89)  ,M(N90^  .M( 


M(N92)  ,M(N93;  .M(.N94)  ,M(N95)  ,M(N96)  ,M{N97)  ,M(N9 
M(N'99)  .M(N:0)  .M(N:n  ,M(N22)  ,M(N29)  , 

IPl.  J?  I .  KP  I ,  ITUW  ,1,3,1) 
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END  IF 
RETURN 
END 


SUBROUTINE  FASVEL 


SUBROUTINE  FASVEL (PR , DPDYU , DPDYW , DPDZU , DPDZV , GG , CU , CV , CW 
$  CUT,CWY,CUZ,CVZ,US,VS,WS,UF,BD,BU,BV, 

S  BW,DF,DS,IP1,JP1,KP1,NA23) 

IMPLICIT  REAL*3(A-H,0-Z) 

COMMON  M(l) 

COMMON/UW 1 / I MAX , JMAX , KMAX , JPP , XPP , JA , JAM 1 , I , KM 1 , KMH 
COMMON/NUMBER/Nl ,N2 ,N3 ,N4 ,N5 ,N6 ,N7 ,N8 ,N9 ,N10 , 

S  N11,N'12,N13,N14,N15,N16,N17,N18,N19,N20, 

S  N2 1 , N22 , N23 , N24 , N3  5 , N26 , N2  7 ,N23 , N29 , N30 , 

S  N31 ,N32 ,N33 ,N34 , V35 ,N36 ,N37 ,N38 ,N39 ,N40 , 

S  N4 1 , N42 , N4  3 , N44 , N45 , N46 , N4  7 , N48 , N49 , N5  0 , 

S  NS  1 , NS  2 , NS  3 , NS4 , N55 , NS  6 , NS  7 , NS  S , NS  9 , N60 , 

S  N6 1 , N6  2 , N6  3 , N64 , N65 , N66 , N67 , N68 , N69 , N7  0 , 

S  N71,N,:,N73  ■..•^4,N75,N76,N77,N78,N79,N80, 

$  N8 1 , N82 , N8  2 , N84 , N83 , N86 , N8  7 , N88 , N89 , N90 , 

$  N91,N9: ,N93,N94,N95,N96,N97,N98,N99,N100, 

S  NlOl ,N1 02 ,N103 ,N104 ,N10S ,Ni06 ,N107 ,N108 

DIMENSION  PR(IP1,JP1,KP1) 

DIMENSION  DPDYU (JP 1 ,KP1) , DPDYW (JP 1 ,KP1) , DPDZU (JPl ,KP1) 
DIMENSION  DPDZV(JPl,KPl),GG(JPl,KPl),CU7JPl,KPl),CVf JPl, 
DIMENSION  CW(JP1,KP1),CUT(JP1,KP1),CUZ( JP1,KP1),CVZ(JP1, 
DIMENSION  CWY(JP1,KP1),US(JP1,K?1),VS(J?1.KP1),WS(JP1,KP 
DIMENSION  UF(JP1,KP1),DS(JP1,KP1),BD(JP1,K?1) ,DF(JP1,XP1 
DIMENSION  BU(JP1,KP1),BV(JP1,KP1),BW(JPI,KP1) 

ITUVW=4 

DO  688  J=JA,JMAX 
DO  688  K=2,KMAX 

DPDYT(J,:<)=0.2S*(PR(I,J+1,K)+PR(I-^1.J+1,K) 

S  -PR(I,J-l,K)-PK(I+l,J-l,K)) 

DPDYV(J,K)=0 . 25*(PR(I ,  J+1  ,K)+PR(I ,  J+1 
S  -PR(I,J-1,K)-PR(I,J-1,:<+1)) 

DPDZU(J,X)=0.25*(PR(I,J,K-i-l)+PR(I-i-l,J,K+l) 

S  -PR(I,J,K-1)-PR(I+1,J,K-1)) 

688  DPDZV(J,K)=0.23*(PR(I,J+l,K-i-i)+?R(I,J,K+l) 

S  -PR(I,J+1,K-1)-?R(I,J,K-1)) 

----  CALCULATE  THE  LONGITUDIAL  VELOCITY  FIFU) 


DO  330  K=2,KMAX 
DO  330  J=JA.JMAX 

3 3 0  G G ( J , K  I  =  C U ( J .  K) ■■> ( P R ( I + 1 ,  J . K )  - ? R { I .  J . K ) ) 

S  >CUY  ( J .  K  i  ■■■■DPDYU  ( J ,  K )  -^CUZ  ( J ,  K ) *DPDZU ( J ,  X ) 


CALL  SVELCUS ,GG,M(N1) ,M(N61) ,H(N62) ,M(N63) ,M(N64) ,M(N65) 
$  M(N66)  ,M(N67)  ,M(N68)  ,M(N69)  ,M(N70)  ,M(N’71)  ,M(N7 

§  M(N73) ,M(N20) ,M(N21) ,M(N22) ,M(N29) , 

5  IP1.JP1,KP1,ITUVW, 1,1,1) 

C 

C-— -  CALCULATE  THE  RADIAL  VELOCITY  FIELD 
C 


DO  430  K=2,KMAX 
DO  430  J=JA,JMAX 

430  GG(J,K)=CV(J,K)*(PR(I,J+1,K)-PR(I,J,K))+ 
$CVZ(J,K)*DPDZV(J,K) 

CALL  SVEL(VS ,GG,M(N2) ,M(N74) ,M(N75) ,M(N76) ,M(N77) ,M(N78) 
$  M(N79) ,M(N80) ,M(N81) ,M(N82) ,M(N83) ,M(N84) ,M(N8 

$  M(N86)  ,M(N20)  ,MCN'21)  ,M(N22)  ,M(N29)  , 

S  IP1,JP1,KP1,ITUVV, 1,2,3) 

C 

C----  CALCULATE  THE  CIRCUMFERENTIAL  VELOCITY  FIELD 
C 


IF(NA23  -EQ.  3)  THEN 
DO  530  J=JA,JMAX 
DO  530  K=2,KM1 

530  GG(J,K)=CW(J,K)*(PR(I,J,K+1)-PR(I,J,K))+ 
SCWY(J,K)*DPDYW(J,K) 

CALL  SVEL(VS ,GG,M(N3) ,M(N87) ,M(N88) ,M(N89) ,M(N90) ,M(N91) 
S  M(N92) ,M(N93) ,M(N94) ,M(N95) ,M(N96) ,M(N97) ,M(N9 

S  M(N99)  ,M(N20)  ,M(N21)  ,M(N'22)  ,M(N29) , 

S  IP1,JP1,KP1,ITUVV,2,3,3) 


CO  580  J=2,JNAX 
DO  580  K=2,KMAX 

530  DS(J,K)=BD(J,K)*US(J,K)-BU(J,K)*UF(J,K)+ 
SBV(J,K)*VS(J,K)-BV(J-1,K)*VS(J-1,K)+BW(J,K)* 
SWS(J,K)-BW(J,K-1)*WS(J,:<-1)^DF(J,K) 

END  IF 

1000  FORMAT(IIO) 

2000  F0RMAT(6E12.4) 

RETURN 

END 


C 

C....  SUBROUTINE  FAVELCOR 
C 


SUBROUTINE  FAVELCOR ( PP , UP , VP . WP , US , VS , WS . CU , CV , CW , BV , 
S  Y2.Y3,Y4,IPI,JP1,KP1.NA23) 

IMPLICIT  REAL*8(A-H,0-Z) 

C0MM0N7C0EF4/  UI , VI ,Mi .M2 ,M3 

COMMON / UVV 1 /  IMAX , JMAX . KMAX , JPP . KPP . JA , JAM 1 , 1 , KM  1 , KMM 
DIMENSION  PPfIPl.JPl.KPl) 

D IMENS ION  UP  f  JP 1 , KP 1 ) . VP ( JP 1 , KP 1 ) , WP ( JP 1 , KP 1 ) 

D I MENS  I ON  US ( J? 1 , X? 1 ) . VS ( JP I . KP  I ) . WS ( JP I , KP 1 ) 


non 


DDENSION  CU(JP1,KP1),CV(JP1,KP1),CW(JP1,KP1),3V(JP1,KP1 
DIMENSION  Y2(IP1,KP1) ,Y3(IP1,KP1) ,Y4(IP1,KP1) 

C 

C-—  CORRECT  THE  IMPERFECT  VELOCITY  FIELD  TO  SATISFY 

C -  THE  EQUATION  OF  CONTINUITY 

C 

DO  879  K=2,KMAX 
DO  800  J=JA,JMAX 

800  UP(J,K)=US(J,K)-CU(J,K)*(PP(I+1,J,K)'PP(I,J,K)) 
IF(I.LT.M1.0R.I.GE.M2)  THEN 
UP(JAM1,K)=((Y4(I,K)-Y2(I,K))*UP(JA,K)- 

S(Y3(I,K)-Y2(I,K))*UP(JA+1,K))/(Y4(I,K)-Y3(I,K)) 

IFCJAMl  .GE.  2)  THEN 
JAMM=JAM1-1 
DO  700  J=1,JAMM 
700  UP(J,K)=UP(JAM1,K) 

END  IF 
END  IF 
879  CONTINUE 

DO  801  J=1,JP1 
UP(J,1)=UP(J,KMM) 

801  UP(J,KPl)=UP(J,iCll) 

DO  810  K=2,KMAX 

DO  811  J=JA,JMAX 

811  VP(J,K)=VS(J,K)-CV(J,K)*(PP(I,J+1,K)-PP(I,J,K)) 

810  VP(JP1,K)=VP(JMAX,K)*BV(JMAX,K)/BV(JP1,K) 

DO  812  J=1,JP1 
VP(J,1)=VP(J,KMM) 

812  VP(J,KP1)=VP(J,:<M1) 

IF(NA23  .EQ.  3)  THEN 
DO  821  K=2,KM1 

DO  821  J=JA.JP1 

821  WP(J,K)=WS(J,K)-CW(J,X)*(PP(I,J,K+1)-PP(I,J,K)) 

DO  822  J=r,JPl 

WP(J,1)=-WP(J,2) 

822  W?(J,KMAX)=-WP(J,KM1) 

END  IF 

RETURN 

END 


. . . .  subroltint:  fahvel 


C***' 


subroutine  fahvel ( UHP , UHF , VH , UH  , VP , GG , CU^  , C'rtT , CUZ , CVZ , 

S  DPDYU . DPDYV , DPDZU , DPDZV , DH , BD , BU , BV , BW 

S  rpi .JP1.KP1.NA23) 

IMPLICIT  REAL*8fA -H.O-Z) 

COMMON  M(l) 

COMMON7NUMBER/N 1 . N2 , N3 , N4 , N5 . N6 . N7 , N8 . N9 , N 10 , 

S  N11,N12.NM3,N14,N15.N16,N17,N18,N19,N20, 
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N2 1 , N22 , N23 , N24 , N25 , N26 , N2  7 , N28 , N29 , N30 , 

N3 1 ,  N32 , N33 , N34 ,  N35  , N'36  ,N3 7 ,  N38 , N'39  ,  N40 , 

N4 1 , N42 , N43 , N44 , N45 , N46 , N47 , N48 , N49 , N50 , 

NS  1 , N52 ,N53 ,N54 , N55 ,N56 ,N5  7 , N58 , N59 .N60 , 

N6 1 , N62 , N63 , N64 , N65 , N66 , N6  7 , N68 , N69 , N70 , 

N71 ,N72 ,N73 ,N74 ,N75 ,N76 ,N77 ,N78 ,N79 ,N80 , 

N8 1 , N8  2 , N83 , N84 , N85 , N86 , N8  7 , N88 , N89 , N90 , 

N9 1 , N9  2 , N9  3 ,N94 , N95 , N96 , N9  7 , N98 , N99 , NlOO , 

$  NlOl ,N102 ,N103 ,N104,N105 ,N106 ,N107 ,N108 

T 

COMMON/ UW 1 / IMAX , JMAX , KMAX , JPP , KPP , JA , JAM 1 , I , KM 1 , KMM 
DIMENSION  DH(IP1,JP1,KP1) 

DIMENSION  UHP(JP1,KP1),UHF(JP1,KP1),VH(JP1,XP1),WH(JP1,K 
DIMENSI0NGG(JP1,KP1),CUY(JP1,KP1),CWY(JP1,KP1),CUZ(JP1, 

DIMENSION  CVZ ( JP 1 , KP 1 ) , DPDYU ( JPl , KP 1) , DPDYV ( JP 1 , KP 1 ) 

DIMENS ICN  DPDZV ( JP 1 , KP 1) , BD ( JP 1 , KP 1 ) , DF ( JP 1 , XP 1 ) , DPDZU ( J 
DIMENSION  BU(JP1,KP1) ,BV(JP1 ,KP1) ,BW(JP1 ,KP1) ,VP(JP1 ,KP1 
C 

C -  CALCULATE  THE  PSEUDO-VELOCITY  FIELD  AND  THE 

C - ASSOCIATED  M.^SS  SOURCE 

C 

DO  671  K=2,KMAX 
DO  671  J=2,JMAX 

671  U*HF(J,K)=UHP(J,K) 

DO  672  K=2,KMAX 
DO  672  J=JA,JMAX 

672  GG(J,K)=CUY(J,K)*DPDYU(J,K) 

S+CUZCJ,K)*DPDZU(J,X) 

CALL  HVEL(UHP , GG , M (N1 ) , M (N40 ) , M (N6 1 ) , M (N62 ) , M (S63 ) , M (N64 
$  M(N65) ,M(N66) ,M(N67) ,M(N68) ,M(N69 ) ,M1N70) ,M(N7 

S  M(N72).M(N73), 

S  IP1,JP1,XP1,1) 

DO  673  K=2,KMAX 
DO  673  J=JA,JMAX 

673  GG(J,X)=CVZ(J,K)*DPDZV(J,X) 

CALL  HVEL(VH,GG,M(N2) ,M(N43) ,M(N74) ,M(N75) ,M(N76) ,M(N77) 

S  M(N78) ,M(N79) ,M(N80) ,M(N81) ,M(N82) ,M(N83) ,M(N8 

S  M(N85),M(N86), 

S  IP1,JP1,KP1,1) 

DO  674  K=2,KMAX 

674  VH(l,K)=VPd,K) 

IF(NA23  .NE.  3)  GO  TO  1234 
DO  676  K=2,KM1 
DO  676  J=JA,JMAX 
676  GG(J,K)=CWY(J,:<)*DPDYV(J,K) 

CALL  HVEL(WH,GG,M(N3) ,M(N46) ,M(N87) ,M(N88) ,M(N89) ,M(N90) 

S  M(N91) ,M(N92) ,M(N93) ,M(N9i) .M(N95) ,M(N96) ,M(N9 

S  MfN98),MrN99), 

S  IP1,JPI,XP1,2) 

DO  677  J=JA,JMAX 
WH(J, 1)=-WH(J.2) 
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677  WH(J,KMAX)=-Vm(J,KMl) 

1234  DO  680  J=JA,JMAX 
DO  680  K=2,KMAX 

680  DH(I,J,K)=BD(J,K)*UHP;J,K)-BU(J,K)*UHF(J,K) 
S+BV(J,K)*VH(J,K)-BV(J-1,K)*VH(J-1,K) 
$+3W(J,K)*WH(J,K)-BW(J,K-l)*WH(J,K-l)-rDF(J,K) 
RETURN 
END 


C....  SUBROUTINE  FAPRESS 
C 

SUBROUTINE  FAPRESS ( PR , PP , DH , DS , Y2SQ , Y 3SQ , Y4SQ , XP , IPl , JPl 
S  ,JOPT) 

IMPLICIT  REAL*8  (A-H,0-Z) 

COMMON  M(l) 

COMMON /NTJMBER/Ni  ,N2  ,N3  ,N^  ,N5  ,N6  ,N7  ,N8  ,N9  ,NTO , 

S  N 11 ,  N 12 ,  N 13  , N 14 , N15 , NT6 , Ni 7 ,  NTS ,  N19 ,  N20 , 

S  N2 1 , N22 , N23 ,N24 , N25 , N26 , N27 , N28 , N29 , N30 , 

S  N31 ,N32 ,N33 ,N34 ,N35 ,N36 ,N37 ,N38 ,N39 ,N40 , 

S  N41 ,N42 ,N43 ,N44,N45 ,N46 ,N47 ,N48 ,N49 ,N50 , 

S  N51 .N52 ,N53 ,N54 ,N55 ,N56 ,N57 ,N58 ,N59 ,N60 , 

$  N6 1 , N62 , N63 , N64 , N65 , N66 , N67 , N68 , N69 , N70 , 

S  N7 1 , N72 , N7  3 , N74 , N75 , N76 , N7  7 ,N78 , N79 , N80 , 

S  N81 ,N82 ,N83 ,N84 ,N85 ,N86 ,N87 ,N88 ,N89 ,N90 , 

S  N9 1 , N92 , N9  3 , N94 , N95 , N96 , N9  7 , N98 , N99 , NlOO , 

S  NTOl  ,N102  ,N103  ,N104  ,NT05  ,Ni06  ,N107  ,NT08 

CO:  N7C0EF4/UI,VI,M1.M2,M3 

CO: :  '5/ UVW 1  /  IMAX ,  JMAX ,  KMAX ,  JPP ,  XPP ,  JA ,  JAMl ,  I , KM  1 , KMM 

DIMENSION  PRCIPl.JPl.KPl) 

DIMENSION  PPdPl.JPl.XPl) 

DIMENSION  DH(IP1,J?1.KP1) 

DIMENS ION  Y2SQ ( I ? 1 , KP 1 ) , Y3SQ ( I? 1 , K? 1 ) , Y4Sg ( I P 1 , K? 1 ) 
DIMENS ION  DS (JPl , KP 1 ) , X? ( IP  1) 


R??=0.3 

ITERP=15 

Xl=X?fM3)-X?(M3-l) 

X2=X?  M3-1)-XP(M3) 

DO  16cO  1=1, IPl 
DO  1660  J=1,JP1 
DO  1660  K=1.KP1 
1660  PP(I,J,K)=PR(I,J.K) 

DO  3999  ITERG=1.ITERP 
DO  661  11=2, IMAX 
I=IMAX-5-2-II 
JA=2 

IF (I  -GE.  M3)  JA=JOPT 
JAM1=JA- 1 

IFd.EQ.M3  .OR.  I.EQ.(M2-1))  THEN 


n  o  n  o  o 
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DO  662  K=1,KP1 
DO  662  J=1,JP1 

662  PR(I,J,K)=(X1*PR(I+1,J,K)+X2*PR(I-1,J,K))/(X1+X2) 

ELSE 

DO  666  K=1,KP1 
DO  666  J=1,JP1 
666  DS(J,K)=DH(I,J,K) 

CALL  PREEU(PR,DS,M(N10),M(N11),M(N12),1,IP1,JP1,KP1) 

DO  660  J=1,JP1 
PR(I,J,1)=PR(I,J,KMM) 

660  PR(I,J,KP1)=PR(I,J,KM1) 

END  IF 

661  CONTINUE 

DO  664  I=2,IMAX 
JA=2 

IF (I  .GE.  M3)  JA=JOPT 

JAM1=JA-1 

DO  663  K=1,KP1 

PR(I,JAM1,K)=((Y4SQ(I,K)-Y2SQ(I,K))*PR(I,JA,K)- 

$(Y3SQ(I,K)-Y2SQ(I,K))*PR(I,JA+1,K))/(Y4SQ(I,K)-Y3SQ(I,K) 

663  CONTINUE 

664  CONTINUE 

DO  4001  J=1,JP1 
DO  4001  K=1,KP1 
4001  PR(IP1,J,K)=PR(IMAX,J,K) 

3999  CONTINUE 

DO  4003  I=M2,IP1 
DO  4004  K=1,KP1 
DO  4004  J=1,JP1 

4004  PR(I,J,K)=PP(I,J,K)+RFP*(PR(I,J,K)-PP(I,J,K)) 

4003  CONTINTJE 
END  IF 
RETURN 
END 


.  . . .  SUBROUTINE  FACST 


SUBROUTINE  FACST ( PHI , YP , ZP , F2 , F3 , ZUT , UB , UP , UF , 

$  VB,VP,VF,WB,WP^T,AKEB,AKEP,ADSP, 

$  GE,D1,E1,H1,SU, 

$  UMM , UMN , UMP , UNM , UNN , UNP , UPM , UPN , UPP , 

S  XX,YY,AA,BB,CC,DD,II,JJ,KK,M,NA23,REI,T 

IMPLICIT  REAL*8(A-H,0-Z) 

DIMENSION  YP(II,JJ,KK) 

DIMENSION  ZP(II,JJ,KK) 

DIMENSION  F2(II,JJ,KK),F3(KK) 

DIMENSION  ZUT(II,JJ,KK) 

DIMENSION  PHI(II,JJ,KK) 
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DIMENSION  UB(JJ,KK) ,UP(JJ,KK) ,UF(JJ,KK) 

DIMENSION -VBCJJ.KK) ,VP(JJ,KK) , VF(JJ,KK) 

DIMENSION  WB(JJ,KK) ,WP(JJ,KK) ,WF(JJ,KK) 

DIMENSION  AKEB(JJ,KK) ,AKEP(JJ,KK) ,ADSP(JJ,KK) 
DIMENSION  D1(JJ,KK) ,E1(JJ,KK) ,SU(JJ,KK) ,H1(JJ,KK) 
DIMENSION  UMM(JJ,KK) ,UMN(JJ,KK) ,UMP(JJ,KK) 

DIMENSION  UNN(JJ,KK),UNN(JJ,KK),UNP(JJ,KK) 

DIMENSION  UPM(JJ,KK) ,UPN(JJ,KK) ,UPP(JJ,KK) 

DIMENSION  GE(JJ,KK) ,XX(JJ,KK) .YY(JJ,KK) 

DIMENSION  AA(JJ,KK) .BB(JJ,KK) ,CC(JJ,KK) 

DIMENSION  DD(II,JJ,KK) 

COMMON/UWl/  IMAX ,  JMAX ,  KMAX ,  JPP ,  KPP ,  JA ,  JAMl ,  I ,  KMP ,  KMM 
COMMON/UVW2 / A 1 , A2 , A3 , A4 , UU , W , WW 
COMMON/UVW3/REFF , ZUTP , ZUTXI , ZUTET, ZUTZT.FXl ,FY2 ,FZ3 
C0MM0N/UW4/ AR ,  BR ,  DR ,  ER ,  FR ,  GR 
COMMON/UVW5 /G11,G22,G33,A11,A22,A33,G,AJI 
C0MM0N/UVW6/B11,B12.B13,B22,B23,B32,B33,SG 
COMMON/UVW7/R ,XXI , YXI , YET , YZT , RZXI ,RZET,RZZT 
COMMON/COEF7/  CF(3,3) 

FACT=1. 

IF(M  .GE.  4)  FACT=30. 

IP1=I+1 

IM1=I-1 

DO  200  K=2,KMAX 

IF(M.EQ.3.'AND.K.EQ.KMAX)  RETURN 
FZ3=F3(K) 

KP1=K+1 

KM1=K-1 

IF(M.EQ.3)  F23=0.5*(F3(K)+F3(KP1)) 

DO  190  J= JAMl, JMAX 

IF(J.EQ.JAM1  .AND.  M.NE.2)  GO  TO  190 

JP1=J+1 

JM1=J-1 

IF(M.EQ.l)  THEN 

CALCULATE  THE  FINITE -ANALYTIC  COEFFICIENTS  .AND 
SOURCE  FUNCTION  FOR  LONGITUDINAL  .MOMENTUM  EQUATION 
FY2=0.5*(F2(I,J,K)+F2(IP1,J,K)) 
R=0.5*(YP(I,J,K)+YP(IP1,J,K)) 
YXI=YP(IP1,J,K)-YP(I,J,.K) 
YET=0.2S*(YP(IP1,JP1,K)-YP(IP1,JM1,K) 
S+YP(I,JP1,K)-YP(I,JM1,K)) 
YZT=0.25*(YP(IP1,J,KP1)-YP(IP1,J,KM1) 
S+YP(I,J,KP1)-YP(I,J,KM1)) 

ZXI=ZP(IP1,J,K)'ZP(I,J,K) 

2ET=0.25*(ZP(IP1,JP1,K)-ZP(IP1,JM1,K) 

S+ZP(I,JP1,K)-ZP(I,JM1,X)) 

22T=0.25-->(ZP(IP1,J,KP1)-ZP(IP1,J,KM1) 

S*ZP(r,J,KPl)-ZP(I,J.KMl)) 

ZLTP=0 . 5 *  ( ZLT f  I P 1 ,  J .  X )  +ZUT  ( I ,  J ,  K ) ) 
2UTXI=ZUT(IP1,J,K)-ZUT(I,J,K) 
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ZUTET=0.25*(ZUT(IP1,JP1,K)'ZUT(IP1,JM1,K) 

$+ZUT(I,JPl,K)-ZUT(I,JMl,K)) 

ZUTZT=0.25*(ZUT(IP1,J,KP1)-ZUT(IP1,J,KM1) 

?+ZUT(I,J,KPl)-ZUT(I,J,KiMl)) 

UU=UP(J,K) 

W=0.25*(VP(JM1,K)+VB(JM1,K) 

$+VP(J,K)+VB(J,K)) 

WW=0.25*(WP(J,KM1)+WB(J,KM1) 

$+WP(J,K)+WB(J,K)) 

ELSE  IF(M.EQ.2)  THEN 

C -  CALCULATE  THE  FINITE -ANALYTIC  COEFFICIENTS  AND 

C----  SOURCE  FUNCTION  FOR  RADIAL  MOMENTUM  EQUATION 
FY2=0.S*(F2(I,JP1,K)+F2(I,J,K)) 
R=0.5*(YP(I,JP1,K)+YP(I,J,K)) 
YXI=0.25*(YP(IP1,JP1,K)-YP(IM1,JP1,K) 
5+YP(IPl,J.K)-YP(IMl,J,K)) 

YET=YP(I,JP1,K)-YP(I,J,K) 

YZT=0.25*(YP(I,JP1,KP1)-YP(I,JP1,KM1) 

$+YP(I,J,KPl)-YP(I,J,KMl)) 

ZXI=0.25*(ZP(IP1,JP1,K)-ZP(IM1,JP1,K) 

$+ZP(IPl,J,K)-ZP(IMl,J,K)) 

ZET=ZP(I,JP1,K)-ZP(I,J,K) 

ZZT=0.2S*(ZP(I,JP1,KP1)-ZP(I,JP1,KM1) 

$+ZP(I,J,KPl)-ZP(I,J,KMl)) 

ZUTP=0.5*(ZUT(I,JP1,K)+ZUT(I,J,K)) 

ZUTXI=0.25*(ZUT(IP1,JP1,K)-ZUT(IM1,JP1,K) 

$+ZUT(IPl,J,K)-ZUT(IMl,J,K)) 

ZUTET=2UT(I,JP1,K)-ZUT(I,J,K) 

ZUTZT=0 . 25* ( ZUT ( I , JP 1 , KP 1 ) - ZUT( I , JP 1 , KM 1 ) 
S+ZUT(I,J,KP1)-ZUT(I,J,KM1)) 

UU=0 . 25*  (UF  ( J ,  K)  +UT  ( JP  1 ,  K) 

S+UP(J,K)+UP(JP1,K)) 

W=VP(J,K) 

W=0.25*(WP(J,KM1)+WP(JP1,KM1) 

S+WP(J,K)+WP(JP1,K)) 

ELSE  IF(M.EQ.3)  THEN 

C -  CALCULATE  THE  FINITE-ANALYTIC  COEFFICIENTS  AND 

C----  SOURCE  FUNCTION  FOR  CIRCUMFERENTIAL  MO>ENTUM  EQUATION 
FY2=0.5*(F2(I,J,K)+F2(I,J,KP1)) 
R=0.5*(YP(I,J,KP1)+YP(I,J,K)) 
YXI=0.2S*(YP(IP1,J,KP1)-YP(IM1,J,KP1) 
S+YP(IP1,J,K)-YP(IM1,J.K)) 
YET=0.2S*(YP(I,JP1,KP1)~YP(I,JM1,KP1) 
S-i-YP(I,JPl,K)-YP(I,JMl,K)) 

Y2T=YP(I ,J.KP1)-YP(I.J,K) 
ZXI=0.:5*(ZP(IP1,J,KPI)-ZP(IM1.J.KP1) 
S-Z?(:?1,J,K)-ZP(IM1,J.K)) 
2ET=0.:5--nZP(I.JPI,i<Pl)-ZP(I,JMl,:<Pl) 
S-Zpn.JPl.KVZPfl.JMl.K)) 

::t=z?(i ,j.KPi)-zp(i.j,K) 

:LT?=0 . 5  *  f  ZUT ( E , J . K? 1 ) +ZUT  ( I , J , K ) ) 
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ZUTXI=0.2S*(ZUT(IP1,J,KP1)-ZUT(IM1,J,KP1) 

$+ZUT(IPl,J,K)-ZUT(IMl,J,K)) 

ZUTET=0.2S*(ZUT(I,JP1,KP1)-ZUT(I,JM1,KP1) 

$+ZUT(I,JPl,K)-ZUT(I,JMl,K)) 

ZUTZT=ZUT(I,J,KP1)-ZUT(I,J,K) 

UU=0.25*(UF(J,KP1)+UF(J,K) 

S+UP(J,KP1)+UP(J,K)) 

W=0.25*(VP(JM1,KP1)+VP(JM1,K) 

$+VP(J,KPl)+VP(J,K)) 

WV=WP(J,K) 

ELSE  IF(M.GE.4)  THEN 

C -  CALCULATE  THE  FINITE -ANALYTIC  COEFFICIENTS  AND 

C----  SOURCE  FUNCTIONS  FOR  TURBULENCE  QUANTITIES 
FY2=F2(I,J,K) 

R=YP(I,J,K) 

YXI=0.5*(YP(IP1,J,K)-YP(IM1,J,K)) 

YET=0.5*(YP(I,JP1,K)-YP(I,JM1,K)) 

YZT=0.5*(YP(I,J,KP1)-YP(I,J,KM1)) 

ZXI=0.5*(ZP(IP1,J,K)-ZP(IN1,J,K)) 

ZET=0.5*(ZP(I,JP1,K)-ZP(I,JM1,K)) 

ZZT=0.5*(ZP(I,J,KP1)-ZP(I,J,KM1)) 

ZUTP=ZUT(I,J,K) 

ZUTXI=0.5*(ZUT(IP1,J,K)-ZUT:IM1,J,K)) 

ZUTET=0.5*(ZUT(I,JP1,K)-ZUT(I,JMI,K)) 

ZUTZT=0.5*(ZUT(I,J,KP1)-ZUT(I,J,KM1)) 

UU=0.5*(UF(J,K)+UP(J,K)) 

W=0.5*(VP(JM1,K)+VP(J,K)) 

W\’=0 . 5*  (WP  ( J ,  KMl  )+WP  ( J ,  K) ) 

END  IF 
C 

IF(NA23  .EQ.  2)  R=l. 

RZXI=R*ZXI 

RZET=R*ZET 

RZZT=R*ZZT 

REFF=1./(REI+ZUTP) 

CALL  EQCOE ( PHI , UB , UP , UF , VB , VP , VF , WB , WP , WF , AKEB , 
$  AKEP,ADSP,GE,II,JJ,KK,M,I,J,K,NA23) 

DDD=DABS(DR) 

D1(J,K)=DR 

E 1 ( J , K ) =A4*REFF*TAU I*F ACT 

Hi(J,K)=GR 

SU(J,K)=SG 

■  IF(J  .EQ.  JAMl)  GO  TO  180 
CALL  COEF 
UMM(J,K)=CF(1,1) 

UMN(J,X)=CF(1,2) 

UMP(J,K)=CF(1,3) 

UNM(J,X)=CF(2,1) 

UNN(J,K)=CF(2,2) 

UNP(J,K)=CF(2,3) 

UPM(J,X)=CF(3,1) 


o  o  ct 
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UPN(J,K)=CF(3,2) 

UPP(J,K)=CF(3,3) 

D=AJI*REFF*UNN(J,K)/(1.+(DDD+2*H1(J,K)+E1(J,K))*UNN(J,K) 
180  IF(M.EQ.l)  THEN 
XX(J,K)=YY(J,K) 

YY(J,K)=B11 

AA(J,K)=D*B11 

BB(J,K)=D*B12 

CC(J,K)=D*B13 

ELSE  IF(M.EQ.2)  THEN 

XX ( J , K ) =B 1 2*UU+B 3 2*WW 

YY(J,K)=B22 

IF(J  .EQ.  JAMJAMl)  GO  TO  190 

AA(J,K)=D*B22 

BB(J,K)=D*B23 

ELSE  IF(M.EQ.3)  THEN 

XX ( J , K ) =B 1 3*UU+B  2  3* W 

YY(J,K)=B33 

AA(J,K)=D*B33 

BB(J,K)=D->B32 

ELSE 

GO  TO  190 
END  IF 

DD(I,J,K)=YY(J,K)*AA(J,K) 

190  CONTINUE 

IF(M.EQ.2)  YY(JPP,K)=(1.5*YP(I,JPP,K)-0.5*YP(I,JMAX,K))* 
SXXI*0.5*(2P(I,JPP,KP1)-ZP(I,JPP,KN1)) 

200  CONTINUE 

IF(I.EQ.2  .AND.  M.EQ.l)  THEN 
DO  201  J=1,JPP 
DO  201  K=1,KPP 
DD(1,J,K)=DD(2,J,K) 

201  XX(J,K)=YY(J,K) 

END  IF 

IF(M.EQ.3)  THEN 
DO  202  J=1,JPP 
YY(J,KNAX)=YY(J,KNP) 

YY(J,1)=YY(J,2) 

AA(J,1)=AA(J,2) 

AA(J,KNAX)=AA(J,KNP) 

DD(I,J,1)=DD(I,J,2) 

DD(I,J,KMAX)=DD(I,J,KMP) 

XX(J,1)=-XX(J,2) 

XX(J,KMAX)=-XX(J,KNP) 

202  CONTINX'E 
END  IF 
RETURN 
END 


SUBROUTINE  EQCOE :  THE  COEFFICIENTS  OF  f.'  EQUATION 
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SUBROUTINE  EQCOE ( PHI , UB , UP , UF , VB , VP , VF , WB , WP , WF , 

$  AKEB.AKEP.ADSP.GE, 

$  II,JJ,KK,M,I,J,K,NA23) 

IMPLICIT  REAL*8(A-H,0-Z) 

DIMENSION  PHI(II,JJ,KK) 

DIMENSION  UB(JJ,KK) ,UP(JJ,KK) ,UF(JJ,KK) 

DIMENSION  VB(JJ,KK),VP(JJ,KK),VF(JJ,KK) 

DIMENSION  WB(JJ,KK),WP(JJ,KK),VF(JJ,KK) 

DIMENSION  AKEB(JJ,KK) , AKEP(JJ,KK) ,ADSP(JJ,KK) 
DIMENSION  GE(JJ,KK) 

COMMON/UV^'2/ A1 ,  A2 ,  A3 ,  A4 ,  UU ,  W ,  WW 
C0MM0N/UVW3/REFF , ZUTP , ZUTXI , ZUTET , ZUTZT , FX 1 , FY2 , FZ3 
C0MM0N/UW4/ AR ,  BR ,  DR ,  ER ,  FR ,  GR 
C0MM0N/U’VW5/Gll,G22,G33,Ail,A22,A33,G,AJI 
C0MM0N7UW6/B 11 .  B 12 , 3 13  ,  B22 ,  B23 , B32 ,  B33 ,  SG 
C0MM0N/UW7/R , XXI ,  YXI ,  YET ,  YZT , RZXI , R2ET ,  RZZT 
C0MM0N/UVW8/C 1 , C2 , CEFFK , CEFFD 

B 1  l=YET*RZZT-YZ’r^RZET 

B12=YZT*RZXI-YXI*RZZT 

B13=YXI*RZET-YET*R2XI 

B22=XXI*RZZT 

B23=-XXI*RZET 

B32=-XXI*YZT 

B33=XXI*YET 

G1 1=XXI*XXI+YXI*YXI+RZXI*RZXI 

G22=YET*YET+RZET^'RZET 

G33=YZT*YZT+RZZT*RZZT 

G 1 2=YXI* YET+RZXI*RZET 

Gi3=YXI*YZT+RZXI*RZZT 

G23=YET*YZT+RZET*RZZT 

G=G 1 1*G22*G3  3+2 . *G 1 2*G 1 3*G23 -G23*G23*G 1 1 - 
SG13*G13*G22-G12*G12*G33 
GI=1./G 

A11=GI*(G22*G33-G23*G23) 

A22=GI*(G11“G33-G13*G13) 

A33=GI*(G11*G22-G12*G12) 

A12=GI*(G13*G23-G12*G33) 

A13=GI*(G12*G23-G13*G22) 

A23=GI*(G12*G13-G23*G11) 

AJI=DSQRT(GI) 

FX=-2.^A11*FX1 

FY=-2.*A22*FY2 

IF(NA23  .NE.  2)  FY=FY+1 . /R/YET 
FZ=-2.*A33*FZ3 

Zrri=AJI*(Bll*ZUTXI+B12*ZLTET+313*ZUTZT) 

ZLT2=AJI*(B22*ZLTET+B23*ZUTZT) 

ZLT3=A J I * ( B  3  2*  ZUTET+ B  3  3*  ZUTZT) 

APl=A4:^a--Al*ZLTl 

AP2=A4*W-A2*ZLT2 

AP3=A4*\,¥-A3*ZUT3 


AR=0 . 5* (REFF*AJI* (B 13*AP 1+B23*AP2+ 

?B33*AP3)-FZ) 

BR=0 . 5*(REFF*AJI*(B 12*AP1+B22*AP2+ 

$B32*AP3)-FY) 

DR=REFF*A  JI*B  1  l-’-AP  1  -FX 
ER=DSQRT(A33) 

FR=DSQRT(A22) 

GR=A11 

SS=-0.5*A12*(PHI(I+l,J+l,K)+PHI(I-l,J-l,K)-PHI(I+l,J-i,K 

$-PHI(I-l,J+l,K))-0.5*A13*(PHI(I+l,J,K+l)+PHI(I-l,J,K-l) 

§-PHI(I+l.J,K-l)-PHI(I-l,J,K+l))-0.5*A23*(PHI(I,J+l,K+l) 

S+PHI(I.J-1,K-1)-PHI(I,J+1,K-1)-PHI(I,J-1,K+1)) 

IF(M  .EQ.  1)  THEN 
DKXI=AKEB ( J , K) -AKEP ( J , K) 

DKET=0 . 2S*(AKEP( J+1 ,K)+AKEB(J+1 ,K) -AKEP(J- 1 ,K) 
S-AKEB(J-1,K)) 

DKZT=0.25*(AKEP(J.K+1)+AKEB(J,K+1)-AKEP(J,K-1) 

S-AKEB(J,K-1)) 

DVXI=0.5*(VB(J,K)+VB(J-1,K)-VP(J,K)-VP(J-1,K)) 

DVET=0.5*(VB(J,K)+VP(J,K)-VB(J-1,K)-VP(J-1,K)) 

DVZT=0. 125*(VB(J,K+1)+VB(J-1,K+1)+VP(J,K+1) 
S+VP(J-1,K+1)-VB(J,K-1)-VB(J-1,K+1)-VP(J,K-1) 
S-VP(J-1,K+1)) 

D\*’XI=0.5*(WB(J,K)+WB(J,K-1)-WP(J,K)-WP(J,K-1)) 

DWET=0.12S*(WB(J+1,K)+WB(J+1,K-1)+WP(J+1,K) 

S+WP(J+1,K-1)*WB(J-1,K)-WB(J-1,K-1)-WP(J-1,K) 

S'WP(J-1,K-1)) 

DWZT=0.5*(WB(J,K)+WP(J,K)-WB(J,K-1)-WP(J,K-1)) 

DKX~A JI* ( B 1 1*DKXI+B 12*DKET+B 13*DKZT) 

DVX=AJI* ( B 1 1*DVXI+B 12*DVET+B 13*DV2T) 

DW'X=AJI*  ( B 1 1*DWXI+B  12*DWET+B  13*DWZT) 

SG=SS+REFF*(2 . /3 .*DKX-ZUT2*DVX-ZUT3*DWX) 

ELSE  IF(M  .EQ.  2)  THEN 
DKET=AKEP ( J+ 1 , K ) - AKE P ( J , K ) 

DKZT=0.25*(AKEP(J+l,K+l)+AKEP(J,K+l)-AKEP(J+l,X-l) 

S-AKEP(J,K-1)) 

DUET=0.5*(UP(J+1,K)+UF(J+1,K)-UP(J,K)-UF(J,K)) 

DUZT=0. 125*(UP(J+1 ,K+1)+UP(J,K+1)+UF(J+1 ,K+1) 
S+UF(J,K+1)-UP(J+1,K-1)-UP(J,K-1)-0T(J+1,K-1) 
$-UF(J,K-l)) 

DWET=O.S*(VP(J+l,K)-WP(J,K)+WP(J+l,K-l)-WP(J,K-l)) 

DWZT=0.S*(WP(J,K)+WP(J+1,K)-WP(J,K-1)-WP(J+1,K-1)) 

DKY=AJI*(B22*DKET+B23*DKZT) 

DUY=AJI*(B22*DtrET+B23*DUZT) 

DWY=AJI*(B22*DVET+B23*DVZT) 

DWZ=A  J I  *  ( B  2  3*DWET+B  3  3*DW'ZT ) 

SG=SS+REFF*(2 . /3 .*DKY-ZUT1*DUY-ZUT3*DWT) 

IF(NA23  ..NE.  2)  SG=SG+REFF*(ZUT3*WV/R- 
SWV-‘'W\»7R)+2 .  /R*DWZ+W/R/R 
ELSE  IF(M  .EQ.  3)  THEN 
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DKET=0 . 2S*(AKEP(J+1  ,K+1)  -AKEP(J-1  .K'^lUAKEPCJ+l  ,K) 
$-AKEP(J-l,K)) 

DKZT=AKEP ( J , K+1) -AKEP ( J , K) 
DUET=0.12S*(UB(J+1,K)+UB(J+1,K-1)+UP(J+1,K) 
S+UP(J+l,K-l)-lJB(J-l,K)-UB(J-l,K-l)-UFoJ-l,K) 
S-UP(J-l,K-i)) 

DUZT=0 . 5* (UP  ( J ,  K+ 1)  +UF ( J ,  K+ 1 )  -UP (  J , K)  -  JJF  ( J ,  K) ) 
DVET=0.5*(VP(J,K+1)-VP(J-1,K+1)+VP(J,K)-VP(J-1,K)) 
DVZT=0.5*(VP(J-l,K+n-VP(J-l,K)+VP(J,K<-l)-VP(J,K)) 
DKZ=AJI*(B32*DKET+B33*DKZT) 

DUZ=A J I* ( B3  2*DUET+B  3  3*DUZT) 

DVZ=AJI*(B32*DVET+B33*DVZT) 

SG=SS+REFF*  (  2 .  /  3 .  *DKZ+W*W/R-  ZUT1*DUZ  -  2UT2*  (DVZ  - 
SWV/R)  -ZUT3*2  .*W/R)  -2 .  /R*DVZ+WV/R/R 
ELSE  IF(M  .EQ.  4)  THEN 
DU'XI=UP(J,K)-UT(J,K) 

DUET=0.25*fUP(J+l,K)+UT(J+l,K)-UP(J-l,K)-UF(J-l,K)) 
DUZT=0.25*(UF(J,K+1)+UF(J,K+1)-UP(J,K-1)-UT(J,K-1)) 
DVXI=0 . 5* (VP ( J , K)+VP ( J- 1 , K) -VF ( J , K) -VF ( J- 1 , K) ) 
DVET=VP(J,K)-VF(J-1,K) 

DVZT=0.25*(VP(J,K+1)+VP(J-1,K+1)-VP(J,K-1)-VP(J-1,K-1)) 

DWXI=0.5*(VP(J,K)+WP(J,K-1)-WT(J,K)-WF(J,K-1)) 

DWET=0.2S*(WP(J+i,K)+WP(J+l,K-l)-WP(J-l,K)-WP(J-l,K-l)) 

DWZT=WP(J,K)-WP(J,K-1) 

DUX=A JI* ( B 1 1*DUXI+B 1 2*DUET+B 13*DU2T) 

DVX=AJI* (B 1 1*DVXI+B 12*DVET+B 13*DVZT) 

DU'X=AJI*  (B 1 1*DVXI+B  12*DWET+B  13*DWZT) 

DUY=A  J  I*  ( B  2  2*001:1+8  2  3*DUZT ) 

DVY=AJI* ( B22*DVET+B23*DVZT) 

DV Y= A J I * ( B  2  2*DWET+B  2  3*  DW  ZT ) 

DUZ=AJI*(B32*DUET+B33*DUZT) 

DVZ=AJI*(B32*DVET+B33*DVZT) 

DVZ=AJI*(B32*DWET+B33*DWZT) 

GE ( J , K ) =ZUTP* ( 2 . *DUX*DUX+2 . *DVY*DVY+2 . *DWZ*DWZ 
S+(DUZ+DW'X)**2+(DVX+DUY)**2+(DVZ+DWY)**2) 

IF(NA23  .NE.  2)  GE(J,K)=GE(J,K)+ZUTP*(2.*(DVZ+W/R)**2- 
S2.*DWZ*DWZ+(DVZ+DVY-WV/R)**2-(DVZ+DWY)**2) 

SG=SS -CEFFX*REFF* (GE ( J , K) - ADSP ( J , K) ) 

ELSE  IF(M  .EQ.  5)  THEN 
SG=SS -CEFFD*REFF* ( C 1*GE ( J , K )*ADSP ( J .K)- 
SC2*ADSP(J,K)*ADSP(J,K))/AKEP(J,K) 

END  IF 
RETURN 
END 


SUBROLTINi:  SVIL  IS  USED  TO  SOLVE  FA  ALGEBRAIC  EQUATION 


SUBROUTINE  SVEL(US , GG , UO . D 1 . E 1 , H 1 , SU , 

S  UMM.UMN.UMP.LliN.U^'N.UNP, 

S  U?M,UPN,UPP,Y2,Y3.Y4.BV, 


o  o  o 
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5  II,JJ,KK,ITUVW,M,L,N) 

IMPLICIT  REAL*8(A-H,0-Z) 

C 

DIMENSION  UOdl.JJ.KK) 

DIMENSION  US(JJ,KK) ,GG(JJ,KK) 

DIMENS  ION  D 1  (  JJ ,  KK ) ,  E 1  ( JJ ,  KK)  ,  H 1  ( JJ ,  KK) ,  SU (  JJ ,  :<:<) 
DIMENSION  UMHCJJ.KK) ,UMN(JJ,KK) ,UMP(JJ,KX) 

DDENSION  UNM(JJ,KK) ,UNN(JJ,KK) ,UNP(JJ,KK) 

DIMENSION  OPM(JJ,KK) ,UPN(JJ,KK) ,UPP(JJ,KK) 

DIMENSION  BV(JJ.KK) ,Y2(II ,KK) ,Y3(II .KK) , Y^(II ,KK) 
DIMENSION  AA(99) ,BB(99) .CC(99) ,DDC99) .T(99) 

COMMON  /  UW 1  / 1  MAX ,  JMAX ,  KMAX ,  J?  i ,  XP 1 ,  JA ,  JAi-l  1 , 1 ,  KM  1 ,  KLM 
C0MM0N/C0EF4/  UI , VI ,M1 ,M2 ,M3 

....  CALCULATE  THE  LONGITUDIAL  VELOCITY  FIELD 


DO  305  ITER=1,ITL-VW 
DO  330  K=2,:'C-1AX 

IF(M.EQ.2  .A.ND.  K.EQ.KMAX)  GO  TO  330 
DO  320  J=JA,JMAX 
DDD=DABS(D1(J,K)) 

Uu’=UO(I-i ,  J.K) 

IF(D1,'J,K)  .LT.Q.)  UU-U0(I+1,J,K) 

AA(J)=-UMN'(J,K) 

3B(J)=i.  +  (DDD+2*Hl(J,K)+El(J.K))*UWK-J,K) 
CC(J)=*UPN(J,K) 

320  DD(J)=UNP(J,K)*US(J,K+i)+UNM(J,K) •US(J,K-1) 

S  +UPP  ( J  ,  K )  *US  ( J+ 1 ,  K+ 1 )  +UPM  ( J ,  K) *U.S  ( J+ 1 ,  X  - 1 ) 
$+UMP(J,K)*L’S(J-l,K+l)+UMM(J.K)*US(J-l,K-l) 

S  +UNN  ( J ,  K )  •••'  (  DDD*UUt£  1  (  J  ,  K  )  *U0  ( I ,  J  ,  K  )  -  SU  (  J  ,  K  ) 

S+H 1  ( J ,  K)*  (UO  ( I■^l ,  J ,  K)+UO  ( I  -  i ,  J ,  K) ) ) 

S-3B(J)*GG(J,K) 

DD(JA)=DD(JA)-AA(JA)*US(JAM1,K) 

DD ( JMAX ) =DD ( JMAX ) -CC  ^ "MAX ) *US ( J? 1 , K ) 

CALL  TRIDAG(JA,JMAX,AA,BB,CC,DD,T) 

DO  310  J=JA,JMAX 
310  US(J,K)=T(J) 

330  continlt: 

DO  333  X--2,KMAX 

IF(L  .EQ.  1)  THEN 

US(JP1,X)=UI 

ELSE  IF(L  .EQ.  2)  THEN 

US(JP1,K)--US(  JMAX.  K)*3V(  JMAX. K)/BV(JP1,K) 

ELSE  IF(L  .EQ.  3)  THEN 
US(JP1.K)=US(JMAX,X) 

END  IF 
333  CONTINLT 

IFfl.LT.Ml  .OR.  r.GE.M2)  THEN 
DO  334  X=2.:<MAX 
IF(N  .EQ.  1)  THEN 

U  S  ( J  AM  1 ,  K ) = {  {■  Y  4  f  I ,  X )  -  Y  2  a  .  K ) )  ”  U  S  ( J  A ,  K )  -  ( Y  3  ( I .  K )  -  Y  2 1 


.:<)) 


n  n  Cl  o 
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$  *US(JA+i,K))/(Y4(I.K)-Y3(I,K)) 

ELSF,  IF(N  .EQ.  2)  THEN 
US ( JAMl , K)=US ( JA , K)*Y2 ( I , K) /Y3 ( I , K) 

ELSE  IF(N  .EQ.  3)  THEN 
US(JA111,K)=0. 

END  IF 

334  CONTINUE 
END  IF 

IF(M  .EQ.  1)  THEN 
DO  331  J=1,JP1 
US(J,1)=US(J.KM.M) 

331  US(J,KP1)=US(J,KM1) 

ELSE  IF(M  .EQ.  2)  THEN 
DO  332  J=1,JP1 
US(J,1)=-US(J,2) 

332  US(J,KMAX)=-US(J,KH1) 

END  IF 

305  CONTINUE 
RETURl-J 
E.ND 


CALCULATE  THE  PSEUDO-VELOCITY  FIELD 


SUBROUTINE  HVEL (UH , GG , UO , UP , D 1 , E 1 , HI , SU , 

S  UMfl,UMN,UMP,UNM,UNN,UNP, 

S  UPM,UPN,UPP,II,JJ,KK,M) 

IMPLICIT  R£AL*8(A-H,0-Z) 

DLME.NSION  UO(II,JJ,KK) 

D I MENS  I ON  UP ( J J , KK ) , UH ( J J , KK ) , SU ( J J , KK ) 

DI.MENSION  GG(JJ,KK)  .D1(JJ,KK)  ,£1(JJ,KK)  ,Hl(JJ,KK) 
DIME.NSION  UMM(JJ,K10  .U.1N(JJ,KK)  ,UMP(JJ,KK) 

DIMENSION  UNMCJJ.IU;^ ,UNN(JJ,KK) ,UNP(JJ,KK) 

DIMENSION  UPM(JJ, ivK) ,UPN(JJ,KK) ,UPP(JJ,KK) 

COMMON/ UVy 1 / I MAX , JMAX , KMAX , JP 1 , KP 1 , JA , J AM 1 , I , KM 1 , KMM 

DO  672  K--2,KMA,X 

IF(M.EQ.2  .AND.,  K.EQ.KMAX)  RETURN 
DO  672  J=JA,J1^AX 
DDD=DABS(D1(J,K)) 

UU=U0(I-1,J,K) 

IF(DHJ,K)  .LT.  0.)  UU=UO(I+l,J,K) 

672  UH(J,K)=(UMN(J,K)*UP(J-1.K)+UPN(J,K)*UP(J+1,K) 
S+UNP(J,K)*UP(J,K+1)+UNM(J,K)*UP(J,X-1) 

S  -^-UP  P  ( J ,  K )  *UP  ( J+ 1 ,  K+ 1 )  +UPM  ( J .  K )  *UP  (  J+ 1 ,  K  - 1 ) 
Sh-UMP(J,K)*UP(J-1,K+1)+UMM(J,K)^UP(J-1,K-1) 
S*UNN(J.K)*(DDD*UU+Hl(J,:<)*(UO(I-l,J,K)+UO(I+l.J,K)) 
St£1(J,K)*UO(I,J,K)-SU(J,K)))/(1.+(DDD+2*H1(J,K) 

S+E 1  ( J ,  X )  )*UN-N (  J ,  K )  ■)  -GG ( J ,  K) 

RETURN 

E.ND 


no  oooooo  ooooo 
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SUBROUTINE  PRESSURE  EQUATION 


•* 


SUBROUTINE  PRESU ( P . DHS , BCU , BCV , BCW , M , I I , JJ , KK) 

IMPLICIT  REAL*8(A-H,0-Z) 

DIMENSION  P(II,JJ,KK) 

DIMENSION  DHS(JJ,KK) 

DIMENSION  BCU(II,JJ,KK) 

DIMENSION  BCV(II,JJ,KK) 

DIMENSION  BCW(II,JJ,KK) 

DIMENSION  AA(99) ,BB(99) ,CC(99) ,DD(99) ,T(99) 
COMMON/UVWl/IMAX, JMAX.KMAX, JPl ,KP1 , JA, JAMl , I ,KM1 ,KMM 
DO  655  K=2,KMAX 
DO  660  J=JA,JMAX 
AA(J)=-BCV(I,J-1,K) 

BB(J)=BCU(I-1,J,K)*M+BCU(I,J,K)+BCV(I,J-1,K) 

S+BCV(I,J,K)+BCW(I,J,K-1)+BCW(I,J,K) 

CC(J)=-BCV(I,J,K) 

660  DD(J)=BCU(I,J,K)*P(I+1,J,K)+BCU(I-1,J,K)*P(I-1,J,K) 
$+BCW(I,J.K)*P(I,J,K+l)+BCW(I,J,K-l)*P(I,J,K'l)-DHS(J,K) 
DD(JA)=DD(JA)-AA(JA)*P(I,JAM1,K) 

D D ( UMAX )= DD ( UMAX )- C C ( UMAX )* P ( I , J P 1 , K ) 

CALL  TRIDAG(JA,JMAX,AA,BB,CC,DD,T) 

DO  671  J=JA,JMAX 
671  P(I,J,K)=T(J) 

655  CONTINTJE 
RETCRN 
END 


SUBROUTINE  COEF  IS  USED  TO  CALCULATE  THE  FA  COEFFICIENTS 


SUBROUTINE  COEF 
IMPLICIT  REAL*8(A-H,0-Z) 

COMMON/COEF7/CF(3,3) 

C0MM0N/UVW4/ AR , BR , DR , ER , FR . GR 

DATA  MAX,EMAX,C1,EPE,PI  / 12 , 20 1 1 • D-5 , 3 . 1415926535897 


HX=1./ER 
HY=1 . /FR 
AR=AR/ER 
BR=BR/FR 

IFfDABS(AR).LT.EPE)AR=DSIGN(EPE,AR) 
rF(DABS(BR) .LT.EPE)3R=DSIGN(EPE.BR) 
ER2=ER*ER 
FR2=FR*FR 
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AB2=AR*AR+BR*BR 

AH=AR*HX 

AX=AR*Hy 

BH=BR*HX 

BK=BR*HY 

DAH=DABS(AH) 

DBK=DABS(BK) 

AH2=AH*AH 

BK2=BK*BK 

IM=0 

JM=0 

IF(DAH.GT.EMAX)  IM=1 
IF(DBK.GT.EMAX)  JM=2 
MT=IM+JM+1 
GO  TO  (1,2, 3, 4),  MT 

1  E?AH=DEXP(AH) 

EPBK=DEXP(BK) 

EPAHI=1./EPAH 
EPBKI=1./EPBK 
C0SHA=0 . 5* (EPAH+EPAHI ) 

C0SHB=0 . 5* (EPBK+EPBKI ) 

C0THA=2 .*COSHA/ (EPAH-EPAHI ) 

COTHB=2 .*COSHB/ (EPBK-EPBKI ) 

AKCTHA=AK*COTHA 

BHCTHB=BH*COTHB 

PWR=1. 

IF(HX  .GT.  HY)  GO  TO  11 
EX2=0. 

DO  10  11=1, MJlX 
ZA=(II-0.5)*PI 
ZA2=ZA*ZA 
PVR=-PVR 

DABK=DSQRT(AB2+ZA2*ER2)*HY 
IF(DABK  .GT.  100.)  GO  TO  9 
AB=DEXP(DABK) 

10  EX2=EX2-PWR*ZA/( (AB+1 . /AB)*(AH2+ZA2)*(AH2+ZA2) ) 
9  PA=8.*AH*C0THA*C0SHA*C0SHB*EX2 

PB= 1 . +BHCTHB / AKCTHA* ( P A - 1 . ) 

CF(2 ,2)=0 .5*HX/ (AR*COTHA)*( 1 . -PA) 

GO  TO  100 

11  EY2=0. 

DO  12  11=1, MAX 
ZA=(II-0.5)*PI 
ZA2=2A---ZA 
?WR=-P\»'R 

DAB  H=DSQRT  f  AB  2+ZA2*FR2 ) *HX 
IFfDABK.GT. 100. )  GO  TO  19 

ab=de;\P(dabh) 
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12  EY2=EY2-PWR*ZA/ ( (AB+1 . /AB)*(BK2+ZA2)*(BK2+ZA2) ) 

19  PB=8 .*BK*COTHB*COSHA*COSHB*EY2 
PA=1 . +AKCTHA/BHCTHB* (PB - 1 . ) 

CF(2 , 2)=0 . 5*HY/ (BR*C0THB )*( 1 . -PB ) 

GO  TO  100 

2  EPBK=DEXP(BK) 

EPBKI=1./EPBK 
COSKB=0 . 5* (EPBK+EPBKI ) 

C0THB=2 . *COSHB/ (EPBK-EPBKI ) 

C0THA=DSIGN(C1,AR) 

AKCTHA=AK*COTHA 

BHCTHB=BH*COTHB 

PVR=1. 

IF(AKCTHA.LT.BHCTHB)  GO  TO  22 
EX2=0 . 

FX2=0 . 

DO  20  11=1, MAX 
ZA=(II-0.5)*PI 
ZA2=ZA*ZA 
PWR=-PW'R 

PZ=PWR*Z A/ ( ( AH2+Z A2 ) * ( AH2+ZA2 ) ) 

FX2=FX2-PZ 

DABK=DSQRT(AB2+ZA2*ER2)*HY 

AB=1. 

IFCDABK.GT.IOO.)  GO  TO  20 
EPABK=DEXP(DABK) 

AB=1 . -COSHB/ (EPABK+1 . /EPABK) 

20  EX2=EX2-PZ*AB 
PA=1.-EX2/FX2 

PB=1 . +BHCTHB/AKCTHA*(PA-1 . ) 
CF(2,2)=0.5*HY/(BR*COTHB)*(1.-PB) 

GO  TO  100 

22  EY2=0. 

DO  23  11=1, MAX 
ZA=(II-0.5)*PI 
ZA2=ZA*ZA 
PVr’R=-PVfR 

DABH=DAK-DSQRT(AB2+ZA2*FR2)*HX 
IF(DABS(DABH).GT.100.)  GO  TO  29 
AB=DEXP(DABH) 

23  EY2=EY2-P1»'R*ZA*AB/  ( (BK2+ZA2)*(BK2+ZA2) ) 

29  PB=4.*BK*C0THB*C0SHB*EY2 

PA=1 . +AKCTHA/BHCTHB*(PB- 1 . ) 
CF(2,2)=0.5*HY/(BR*C0THB)*(1.-PB) 

GO  TO  100 

3  EPAH=DEXPfAH) 

EPAHI=1./EPAH 
C0SHA=0 . EPAH+EPAH I ) 

C0THA=2  .  -^COSHA/  (EPAH-EPAHI ) 


C0THB=DSIGN(C1,BR) 

AKCra&=AK*COTHA 

BHCTHB=BH*COTHB 

PWR=1. 

IF(AKCTHA.GT.BHCTHB)  GO  TO  32 
EY2=0. 

FY2=0 . 

DO  30  I 1=1, MAX 
ZA=(II-0.5)*PI 
ZA2=ZA*ZA 
PW'R=-PWR 

P2=FWR*ZA/ ( (BK2+ZA2)*(BK2+ZA2) ) 
FY2=FY2-PZ 

DABH=DSQRT ( AB  2+ZA2*FR2 ) *HX 
AB=1. 

IFCDABH.GT. 100.)  GO  TO  30 
EPABH=DEXP(DABH) 

AB=1 . -COSHA/ (EPABH+1 . /EPABH) 

30  EY2=EY2-PZ*AB 
PB=1.-EY2/FY2 

PA=1 . +AKCTHA/BHCTHB*(PB- 1 . ) 
CF(2,2)=0.5*HY/(BR*COTHB)*(1.-PB) 

GO  TO  100 

32  EX2=0. 

DO  33  11=1, MAX 
ZA=(II-0.5)*PI 
ZA2=ZA*ZA 
PVR=-PVR 

DABK=DBK-DSQRT(AB2+ZA2*ER2)*HY 
IF(DABS(DABK).GT.100.)  GO  TO  39 
AB=DEXP(DABK) 

33  EX2=EX2-PVR*ZA*AB/ ( (AH2+ZA2)*(AH2+ZA2) ) 
39  PA=4.*AH*C0THA*C0SHA*EX2 

PB=1 . +BHCTHB/AKCTHA*(PA- 1 . ) 
CF(2,2)=0.5*HY/(BR*C0THB)*(1.-PB) 

GO  TO  100 

4  DAK=DABS(AK) 

DBH=DABS(BH) 

C0THA=DSIGK(C1,AR) 

C0TKB=DSIGN(C1,BR) 

IF(DAK.LT.DBH)  GO  TO  41 
PA=0. 

PB=1 . -DBH/DAK 

CF(2 , 2)=C . 5*HX/ (AR*COTHA) 

GO  TO  100 

41  ?3=0. 

?A=1.-DAK/DBK 

CF  ( 2 , 2 )  =0 . 5  *}fY/  ( 3R*COTH3 ) 


C 


o  o  n  n  n 
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100  Q=1.-PA-PB 

TANHA=1./C0THA 

TANHB=1 . /COTHB 

BE=0.5*(1.-TANHA) 

BW=0.S*(1.+TANHA) 

BN=0.5*(1.-TANHB) 

BS=0.5*(1.+TANHB) 

CF(1,1)=BW*BS*Q 

CF(1,3)=BE*BS*Q 

CF(3,1)=BW*BN*Q 

CF(3,3)=BE*BN*Q 

CF(1,2)=BS*PA 

CF(3,2)=BN*PA 

CF(2,1)=BW*PB 

CF(2,3)=BE*PB 

RETURN 

END 


SUBROUTINE  TRIDAG  TO  SOLVE  ALGEBRAIC  EQUATIONS 


SIMULTANEOUSLY  FOR  EACH  ROW  OR  COLOUM 


SUBROUTINE  TRIDAG(IF,L,A,B,C,D,V) 

IMPLICIT  REAL*8(A-H,0-Z) 

DIMENSION  A(99) ,B(99) ,C(99) ,D(99) ,V(99) ,BETA(99) ,GAMMA(9 
BETA(IF)=B(IF) 

GAMMA(IF)=D(IF)/BETA(IF) 

IFP1=IF+1 
DO  1  I=IFP1,L 

BETA(I)^B(I)-A(I)*C(I-1)/BETA(I-1) 

1  GAMMA(I)=(D(I)-A(I)*GAMMA(I-1))/BETA(I) 

V(L)=GAMMA(L) 

LAST=L-IF 
DO  2  K=1,LAST 
I=L-K 

2  V(I)=GAMMA(I)-C(I)*V(I+1)/BETA(I) 

RETURN 

END 


C 

C _  THIS  PROGRAM  IS  USED  TO  GENERATE  THE  BODY-FITTED 


C. . . .  COORDINATES  ON  THE  AFTERBODYl 


IMPLICIT  REAL*8  (A-H,0-2) 
COMMON/GEO  1/  XP(62) , YP(62 . 20 ,4) 
C0MM0N/GE02/  ZP(62,20,4) 
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C0MM0N/B0DY2/  Fl(62) ,F2(62.20) ,F3(4) ,GE(20 ,4) 

DIMENSION  AA(90) ,BB(90) ,CC(90) ,DD(90) ,T(90) 

DIMENSION  FA(20),  FB(20) 

C 

IMAX=62 
JMAX=20 
KMAX=l 
IMAM=IMAX-1 
JMAM=JMAX-1 
KMAM=KMAX-1 
EPE=l.D-5 
Al=-.05 
A2=0 . 2 
NA=1S 
NB=42 
NX1=5 
NX2=40 
NX3=40 
C 

PI=3. 14159265358979300 
EPS=1.D-12 
C 

C _  X-DIRECTION 

C 

AX3=NX3 

C 

DO  50  1=10, IMAX 
Z1=I/AX3 
C 

IF(Z1  .LE.  0.5)  F1(I)=A1 
IF(Z1  .GT.  0.5  .AND.  Z1  .LE.  l.)GO  TO  20 
IF(Z1  .GT.  1.  .AND.  Z1  .LE.  1.2)  GO  TO  30 
IF(Z1  .GT.  1.2)  F1(I)=A2 
GO  TO  50 
20  PIZ=PI*Z1 

F1(I)=A1*DSIN(PIZ) 

GO  TO  50 
30  PIZ=PI*Z1 

F1(I)=-A2*DSIN(PIZ) 

50  CONTINUE 
C 

DO  55  1=1,5 

55  F1(I)=-F1(NX2+I>5) 

DO  56  1=5,9 

56  F1(I)=-F1(10-I) 

C 

DO  60  1=2,  IMAM 
AA(I)=-DEXP(F1(I)) 

CC(I)=1./AA(I) 

3B(I)=-(AA(I)+CC(I)) 

60  DD(r)=0.D0 


o  o  o  n  o 
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XP(NX1)=0.4446D0 

XP(NX2)=1.D0 

N1=NX1+1 

N2=NX2-1 

C 

DD(N1)=DD(N1)-AA(N1)*XP(NX1) 

DD(N2)=DD(N2)-CC(N2)*XP(NX2) 

C 

CALL  TRIDAG(N1,N2,AA,BB,CC,DD,T) 

C 

DO  70  I=N1,N2 
70  XP(I)=T(I) 

DO  72  I=NX1,2,-1 

XP(I-1)=-(XP(I)*BB(I)+XP(I+1)*CC(I))/AA(I) 
72  CONTINUE 

DO  74  I=NX2,IMAM 

XP(I+1)=-(XP(I)*BB(I)+XP(I-1)*AA(I))/CC(I) 
74  CONTINUE 

_  Y-DIRECTION 

....  READ  THE  BODY  SURFACE  FROM  THE  MEASUREMENTS 

OPEN (UNIT=S , FILE= ' AFTERBODYl ' ) 
READ(5,300)(YP(I,1,1),I=1.IMAX) 

CLOSE (5) 

DO  150  I=1,IMAX 
YP(I,JMAX,1)=1.0 
150  CONTINUE 

DO  160  J=3,JMAM 
FB(J)=0. 15 
FA(J)=0.20 
160  CONTINUE 
FB(2)=-0.15 
FB(3)=0. 

FA(2)=-0.20 
FA(3)=0. 

DO  10  J=2,JMAM 
EB=DEXP(FA(J)) 

EBR=1.D0/EB 
PSN=EB+EBR 
EB2=EB*EB 
EB2R=1./EB2 
PPSN=2.*B/(EB2-EB2R) 
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C 


C 

C 


C 


AA(J)=-EB 
BB(J)=PSN 
CC(J)=-EBR 
10  DD(J)=0.D0 

DO  170  I=1,IMAX 

DD(2)=-AA(2)*YP(I,1,1) 

DD(JMAM)=-CC(JMAM)*YP(I,JMAX,1) 

CALL  TRIDAG(2,JMAM,AA,BB,CC,DD,T) 

DO  379  J=2,JMAM 
379  YP(I,J,1)=T(J) 

170  CONTINUE 


DO  1000  ITY= 1,250 
SOS=0 . 

DO  200  1=2, IMAM 
DO  210  J=2,JMAM 

XXIXI=XP(I+1)-2.*XP(I)+XP(I-1) 

YETET=YP(I,J+1,1)-2.*YP(I,J,1)+YP(I,J-1,1) 

XXI=.5*(XP(I+1)-XP(I-1)) 

XET=0. 

YXI=.5*(YP(I+1,J,1)-YP(I-1,J,1)) 

YET=.S*(yP(I,J+l,l)-YP(I,J-l,l)) 

AJI=XXI*YET 

G11=(YET**2)/AJI/AJI 

G22=(XXI**2+YXI**2)/AJI/AJI 

G12=-YXI*YET/AJI/AJI 

IF (I  .LT.  NA)THEN 

F2(I,J)=FA(J) 

ELSE  IF(I  .GT.  NB)  THEN 
F2(I,J)=FB(J) 

ELSE 

F2(I,J)=((NB-I)*FA(J)+(I-N'A)*FB(J))/(NB-NA) 

END  IF 

A=F1(I) 

B=F2(I,J) 

IF(DABS(B)  .LT.  EPE)  B=DSIGN(EPE ,B) 
EPA=DEXP(A) 

EPB=DEXP(B) 

EPAI=1./EPA 

EPBI=1./EPB 

C0SHA=.5*(EPA+EPAI) 

C0SHB=.5*(EPB+EPBI) 

CSCHA=2./(EPA-EPAI) 

CSCHB=2./(EPB-EP3I) 

COTHA=COSHA-'CSCHA 
COrriB=COSHB"-CSCHB 
AB=G22-"-B*CSCHB 
AA(J)  =  -AB->EPB 
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BB (J)=2 . *(Gll*A*COTHA+G22*B*COTHB) 

CC(J)=-AB*EPBI 

DD(J)=.5*G12*(YP(I+1,J+1,1)+YP(I-1,J-1,1)-YP(I-1,J+1,1) 
$  - YP ( I+l , J- 1 , 1 ) )+G 1 1*A*CSCHA* (EPA*YP ( I - 1 , J , 1 ) 

$  +EPAI*YP(I+1,J,1)) 

210  CONTINUE 

DD(2)=DD(2)-AA(2)*YP(I,1,1) 

DD ( JMAN ) =DD ( JNAM ) - CC ( JMAM ) * YP ( I , JM AX , 1 ) 

CALL  TRIDAG(2,JMAM,AA,BB,CC,DD,T) 

DO  220  J=2,JMAM 
YT=T(J)-YP(I,J,1) 

IF(DABS(SOS)  .LT.  DABS(YT))  SOS=YT 
220  YP(I,J,1)=1-8*T(J)-0.8*YP(I,J,1) 

200  CONTINUE 
C 

IF(DABS(SOS)  .LT.  0.00001)  GO  TO  999 
DO  666  J=2,JMAM 

YP(INAX,J,1)=YP(IMAX-1,J,1)-YP(IMAX-1,1,1)+YP(IMAX,1,1) 
666  CONTINUE 
C 

WRITE (1,222)  ITY,  SOS 
1000  CONTINUE 
C 

999  DO  555  I=1,IMAX 
F2(I,1)=0. 

F2(I,JMAX)=F2(I,JMAM) 

555  CONTINUE 
C 

DO  444  J=1,JMAX 
F2(1,J)=F2(2,J) 

F2(INAX,J)=F2(IMAM,J) 

444  CONTINUE 
C 
C 

0PEN(UNIT=6 ,FILE=' PHYSBODY' ) 

V^-RITE (6 , 300 )  (XP(I ) ,  1=1 ,  IMAX) 
WRITE(6,300)(Fl(I),I=l,IMAX) 

DO  550  J=l,19 

WRITE ( 6 , 300 ) ( YP ( I , J , 1 ) , 1= 1 , IMAX) 

WRITE  ( 6 , 300 )  (F2  ( I ,  J)  ,  1= I ,  I.MAX) 

550  CONTINUE 
CLOSE (6) 

300  FORMAT (5E 14. 7) 

700  FORMAT (IX, 6 1 10) 

222  F0RMAT(I10,E12.4) 

CALL  EXIT 
END 


C  SUBROUTINE  TRIDAG  TO  SOLVE  ALGEBRAIC  EQUATIONS 
C  SIMULTANEOUSLY  FOR  EACH  ROW  OR  COI.OU'M 


o  o  o 
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SUBROUTINE  TRIDAG(IF,L,A,B,C,D,V) 

IMPLICIT  REAL*8(A'H,0-Z) 

DIMENSION  A(90) ,B(90) ,C(90) ,D(90) ,V(90) ,BETA(90) ,GAMMA(9 
BETA(IF)=B(IF) 

GAMMA(IF)=D(IF)/BETA(IF) 

IFP1=IF+1 
DO  1  I=IFP1,L 

BETA(I)=B(I)-A(I)*C(I-1)/BETA(I-1) 

1  GAMMA(I)=(D(I)-A(I)*GAMMA(I-1))/BETA(I) 

V(L)=GAMMA(L) 

LAST=L-IF 
DO  2  K=1,LAST 
I=L-K 

2  V(I)=GAMMA(I)-C(I)*V(I+1)/BETA(I) 

RETURN 

END 

c 

C _  THIS  PROGRAM  IS  USED  TO  GENERATE  THE  BODY-FITTED 

C _  COORDINATES  ON  THE  F-57  BODY 

C 

IMPLICIT  REAL*8  (A-H,0-Z) 

COMMON/GEOl/  XP(62) ,YP(62 ,20 ,4) 

C0MMON/GEO2/  ZP(62,20,4) 

C0MM0N/B0DY2/  Fl(62) ,F2(62,20) ,F3(4) ,GE(20,4) 

DIMENSION  AA(90) ,BB(90) ,CC(90) ,DD(90) ,T(90) 

DIMENSION  FA(20),  FB(20) 

C 

IMAX=62 
JMAX=20 
KMAX=1 
IMAM=IMAX-1 
JMAM=JMAX-1 
KMAM=KMAX-1 
EPE=l.D-5 
Al=-.01 
A2=0.2 
NA=15 
NB=42 
NX  1=5 
NX2=40 
NX3=40 
C 

OPEN(UNIT=6,  FILE='PHYSBODY') 

?I=3. 141592653589793DO 
E?S=1.D-12 
C 


Ci  o 


_  X-DIRECTION 

AX3=NX3 

DO  SO  1=10, IMAX 
Z1=I/AX3 

IF(Z1  .LE.  0.5)  F1(I)=A1 
IF(Z1  .GT.  0.5  .AND.  Z1  .LE.  l.)GO  TO  20 
IF(Z1  .GT.  1.  .AND.  Z1  .LE.  1.1)  GO  TO  30 
IF(Z1  .GT.  1.1)  F1(I)=A2 
GO  TO  50 
20  PIZ=PI*Z1 

F1(I)=A1*DSIN(PIZ) 

GO  TO  50 
30  PI2=PI*Z1 

F1(I)=-A2*DSIN(PIZ) 

50  CONTI.NUE 
C 

DO  55  1=1,5 

55  Fl(I)=-Fl(NX2+I-5) 

DO  56  1=5,9 

56  F1(I)=-F1(10-I) 

C 

DO  60  1=2, IMAM 
AA(I)=-DEXP(F1(I)) 

CC(I)=1./AA(I) 

BB(I)=-(AA(I)+CC(I)) 

60  DD(I)=0.D0 
C 

XP(NX1)=0.4446D0 

XP(.N'X2)=l.DO 

N1=NX1+1 

N2=NX2-1 

DD(N1)=DD(N1)-AA(N1)*XP(NX1) 

DD(N2)=DD(N2)-CC(N2)*XP(NX2) 

C 

CALL  TRIDAG (N1,N2,AA,BB,CC,DD,T) 

C 

DO  70  I=N1,N2 
70  XP(I)=T(I) 

C 

DO  72  I=NX1,2,-1 

XP(I-1)=-(XP(I)*BB(I)+XP(I+1)*CC(I))/AA(I) 
72  CONTINLi; 

C 

DO  74  I=N'X2.IMAM 

XP(I+l)=-(XP(I)*3B(I)+XP(I-l)*.AA(I))/CC(I) 
74  CONTI NLT 


o  o  no 
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_  Y-DIRECTION 

A1=0.0112135DO 

A2=0.0761289D0 

A3=0.1104047DO 

A4=-0.4107083D0 

B2=0.007868094D0 

B3=0.281687965D0 

B4=-0.371566458D0 

B5=-0.031072748DO 


DO  100  I=1,IMAX 
rpi=i+i 

IF(XP(I)  .LT.  O.DC  .OR.  XP(I)  .GT.  l.DO)  GO  TO  110 
IF(XP(I) .GE.O.  .AND.  XP(I) .LE. 0.4446)  GOTO  120 
IF(XP(I) .GT. 0.4446  .AND.  XP(I).LE.l.)  GO  TO  130 


110  YP(I,1,1)=0.D0 
GO  TO  100 
120  P=XP(I) 

YP ( I , 1 , 1 ) =DSQRT ( ( ( ( A4*P+A3 ) *P+A2 )*P+A 1) *P ) 

GO  TO  100 
130  P=1-XP(I) 

YP(I , 1 , 1)=DSQRT( ( ( (B5*P+B4)*P+B3)*P+B2)*P*P) 
100  CONTINUE 

DO  150  I=1,IMAX 
YP(I,J>1AX,1)=2.0 
150  CONTINUE 

DO  160  J=3,JMAM 
FB(J)=0. 15 
FA(J)=0.20 
160  CONTINTJE 
F3(2)=-0.15 
FB(3)=0. 

FA(2)=-0.20 

FA(3)=0. 

DO  10  J=2,JMAM 
EB=DEXP(FA(J)) 

FHR=1.D0/EB 

?SN=EB+E3R 

E32=EB*EB 

E32R=1./EB2 

?PSN=2.*B/(EB2-EB2R) 

AA(J)=-£B 

BB(J)=PSN 


CC(J)=-EBR 
10  DD(J)=0.D0 
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C 

C 

C 

C 


DO  170  I=1,IMAX 
DD(2)=-AA(2)*YP(I,1.1) 

DD ( JMAM ) = - C C ( JMAM ) * Y P ( I , JMAX , 1 ) 

CALL  TRIDAG(2,JMAM,AA,BB,CC,DD,T) 

DO  379  J=2,JMAM 
379  YP(I,J,1)=T(J) 

170  CONTrJUE 


DO  1000  ITY=1,2S0 
S0S=0 . 

DO  200  1=2, IMAM 
DO  210  J=2,JMAM 

XXIXI=XP ( 1+ 1 ) - 2 . *XP ( I )+XP ( I - 1 ) 

YETET=YP(I,J+1,1)-2.*YP(I,J,1)+YP(I,J-1,1) 

XXI=.5*(XP(I+1)-XP(I-1)) 

XET=0. 

YXI=.5*(YP(I+1,J,1)-YP(I-1,J,1)) 

YET=.5*(YP(I,J+1,1)-YP(I,J-1,1)) 

AJI=XXI*YET 
Gll=CfET**2)/AJI/AJI 
G22=(XXI**2+YXI**2 ) /AJI/AJI 
G12=-YXI*YET/AJI/AJ: 

IF(I  .LT.  NA)THEN 
F2(I,J)=FA(J) 

ELSE  IF (I  .GT.  NB)  THEN 
F2(I,J)=F3(J) 

ELSE 

F2(I,J)=((NB-I)*FA(J)+(I-NA)*FB(J))/(NB-NA) 

END  IF 

A=F1(I) 

B=F2(I,J) 

IF(DABS(B)  -LT.  EPE)  B=DSIGN(EPE , B) 
EPA=DEXP(A) 

EPB=DEXP(B) 

EPAI=1./EPA 

EPBI=1./EPB 

C0SHA=.5*(EPA+EPAI) 

C0SHB=.5*(EPB+EPBI) 

CSCHA=2./(EPA-EPAI) 

CSCHB=2./(EPB-EPBI) 

COTHA=COSHA*CSCHA 

COrH3=COSHB*CSCHB 

AB=G22*B*CSCHB 

AA(J)=-AB*EPB 

BB ( J )=2 . *  f G 1 1 " A*C0THA+G22*B*C0THB ) 
CC(J)=-AB*E?BI 


DD(J)=.S*G12*(YP(I+1.J+1,1;HP(I-1,J-1,1)-Y?(I-1,J+1,1) 
$  - YP ( 1+ 1 , j- 1 , 1 ) ) +G 1 1*A*CSCHA* (EPA*YP ( I - 1 , J , 1 ) 

$  +EPAI*YF(I+1,J,1)) 

210  CONTINUE 

DD(2)=DD(2)-AA(2)*YP(I,1,1) 

DD ( JMAM)=DD ( JMAM) -CC ( JMAM)*YP ( I , JMAX , 1 ) 

CALL  TRIDAG(2,JMAM,AA,BB,CC,DD,T) 

DO  220  J=2,JMAM 
YT=T(J)-YP(I,J,1) 

IF(DABS(SOS)  .LT.  DABS(YT))  SOS=YT 
220  YP(I,J,1)=1.8*T(J)-0.8*YP(I,J,1) 

200  CONTINUE 

IF(DABS(SOS)  .LT.  0.00001)  GO  TO  999 
DO  666  J=2,JMAM 

YPCI.^IAX,  J,  1)=YP(IMAX-1 ,  J,  1)-YP(IMAX-1, 1 ,  l)+YP(I^^AX,  1, 1) 
666  CONTINUE 

1*11^(1,222)  ITY,  SOS 
1000  CONTI. '."fE 

DO  555  I=1,IMAX 
F2(I,1)=0. 

F2(I,JMAX)=F2(I,JMAM) 

555  CONTINUE 

* 

DO  444  J=1,JNAX 
F2(1,J)=F2(2,J) 

F2(IMA.X,J)=F2(IMAM,J) 

444  CONTINUE 


999  WRITE (6, 700)  IMAX,  JMAX 

WRITE (6 , 300 ) (XP ( I ) , 1=1 , IMAX) 

WRITE(6,300)(Fl(r) ,1=1, IMAX) 

DO  550  J=l,19 

WRITE ( 6 , 300 ) (YP ( I , J , 1 ) , 1=1 , IMAX) 

WRITE ( 6 , 300 ) (F2 ( I , J) , 1=1 , IMAX) 

550  CONTINUE 
CLOSE (6) 

300  F0RMAT(5E14.7) 

700  FORMAT (IX, 6 I 10) 

222  FORMAT(I10,E12.4) 

CALL  EXIT 
END 
C 

0  V /  /.  A  .« ,V  if,  /rV.'  .V  .W 

C  subroutine  tridag  TO  SOLVE  ALGEBRAIC  EQUATIONS 
C  SI.MULTANEOUSLY  FOR  EACH  ROW  OR  COLOUM 

C 


o  o 
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SUBROUTINE  TRIDAG(IF,L,A,B ,C,D,V) 

IMPLICIT  R£AL*8(A-H,0-Z) 

DIMENSION  A(90) ,B(90) ,C(90) ,D(90) ,V(90) ,BETA(90) ,GAMMA(9 
BETA(IF)=B(IF) 

GAMMA(IF)=D(IF)/BETA(IF) 

IFP1=IF+1 
DO  1  I=IFP1,L 

BETA(I)=B(I)-A(I)*C(I-1)/BETA(I-1) 

1  GAMMA(I)=(D(I)-A(I)*GAMMA(I-1))/BETA(I) 

V(L)=GAiMMA(L) 

LAST=L-IF 
DO  2  K=1,LA.ST 
I=L-K 

2  V(I)=GAMMA(I)-C(I)*V(I+1)/BETA(I) 

RETURN 

END 


c 

C _  THIS  PROGRAM  IS  USED  TO  GENERATE  THE  BODY-FITTED 

C _  COORDINATES  ON  THE  OGIVE -NOSE  BODY 

C 

^  « V ■/.<  ■»y  •J;  •J; •*;  ■/;  V;' ■*;  ‘A*  ‘A*  •^S  'JrJs  "fz  A*  A  ^rfz “*f »  '*;  ‘A  */g  '« >**A*  ji '/r'Jz  *  » *.V 

IMPLICIT  REAL*8  (A-H,0-Z) 

COMMON/GEOl/  XP(67) ,YP(67 ,20,9) 

C0MM0N7GE02/  ZP(67,20,9) 

C0MM0N/B0DY2/  FI (67) ,F2(67 ,9) ,F3(9) ,GE(20 ,9) 
DIMENSION  AA(90) ,BB(90) ,CC(90) ,DD(90) ,T(90) 
DIMENSION  FA(20),  FB(20) 


IMAX=62 
JMAX=20 
KMAX=9 
IMAM=IMAX-1 
JMAM=JMAX-l 
:<MAM=KMAX-1 
E?E=l.D-5 
Al=-.3 
A2=- . 2 
NA=10 
NB=42 
NX1=12 
N'X2=iO 
NX3=25 
C 

0PEN(UNTT=6 .  FILE=' PHYSBODY’ ) 

PI=3. 14159265358979300 
E?S=l.D-12 


n 


c 

C _  X-DIRECTION 

C 

AX1=NX1-1. 

AX2=2.*NX1-1. 

AX3=NX2-AX2 

C 

DO  50  I=1,IMAX 
Z1=(I-1)/AX1 
Z2=(I-AX2)/AX3 
C 

IF(Z1  .LE.  0.5)  THEN 
F1(I)=A1 

ELSE  IF(Z1  .GT.  0.5  .AND.  Z1  .LE.  2.)THEN 
PIZ=PI*Z1 

F1(I)=A1*DSIN(PI2) 

ELSE  IF(Z2  .LE.  1.5)  THEN 
PIZ=PI*Z2 

F1(I)=A2*DSIN(PIZ) 

ELSE  IF(Z2  .GT.  1.5)  THEN 
F1(I)=-A2 
END  IF 
C 

50  CONTINUE 
C 

DO  60  1=2, IMAM 
AA(I)=-DEXP(F1(I)) 

CC(I)=1./AA(I) 

BB(I)=-(AA(I)+CC(I)) 

60  DD(I)=O.DO 
C 

XP(NX1)=0.D0 

XP(NX2)=1.D0 

NT-NXl+1 

N2=NX2-1 

C 

DD(NT)=DD(N1)-AA(N1)*XP(NX1) 

DD(N2)=DD(N2) -CC (N2)*XP (NX2) 

C 

CALL  TRIDAG(N1,N2,AA,BB,CC,DD,T) 

C 

DO  70  I=N1.N2 
70  .XP(I):^(I) 

DO  72  I=S'X1,2,-1 

XP(I-1)=-(XP(I)*BB(I)+XP(I+1)*CC(I))/AA(I) 
72  CONTINUE 
C 

DO  74  I=N'X2,IMAM 

XP(I-I)=-(XP(I)’^BB(I)+XP(I-1)*AA(I))/CC(I) 
74  CONTINUE 


ono  o  ooo  ooo 


_  Z -DIRECTION 

DO  421  K=l,mX 
F3(K)=0. 

DO  421  J=1,JMAX 
DO  421  I=1,IMAX 
421  ZP(I,J,K)=(K-5.)*PI/6. 

-  Y-DIRECTION 

AL=0.5D0 

BL=0.006DO 

XL=0.5D0 

DO  100  I=1,IMAX 

IP1=I+1 

IM1=I-1 

IF(XP(I)  .LT.  O.DO  .OR.  XP(I)  .GT.  l.DO)  THEN 
YP(I,1.1)=0.D0 

ELSE  IF  (XP(I)  .GE.  O.DO  .AND.  XP(I)  .LE.  0.06D0)  THEN 
YP(I,1,1)=0.1DO*XP(I) 

ELSE  IF  (XP(I)  .GT.  0.06D0  .AND.  XP(I)  .LE.  0.5D0)  THEN 
YP(I,1,1)=0.006D0 

ELSE  IF  (XP(I)  .GT.  0.3D0  .AND.  XP(I)  .LE.  l.DO)  THEN 
IF(XP(I)  .GT.  0.9999DO)  XP(I)=O.99999D0 
XXL=XP(I)-XL 

YP(I , 1 , 1)=BL*DSQRT( 1 .D0-(XXL/AL)**2) 

IF(XP(I)  .GE.  0.9999D0)  XP(I)=I.D0 
END  IF 
100  CONTINUE 

DO  150  K=1,KMAX 
DO  150  I=1,IMAX 

YP(I,1.K)=YP(I.1,1) 

YP(I,J>1AX,K)=1.5 
150  CONTINUE 

DO  123  X=2,KHAM 

FA(K)=0 . 26+(KMAM-:<)**2/ 1000 . 

FB(K)=0 . 26+(KMAM-K)**2/ 1000 . 

FA(K)=0.283S 
FB(K)=0.2835 
123  CONTINU’E 
FAC1)=FA(3) 

F3(1)=F3(3) 

FA(XMAX)=FA(mM-l) 

F3(XMAX)=F3(XMA.N-l) 

DO  10  K=l.KMAX 
E3=DEX?(FA(K)) 


EBR=1.D0/EB 

PSN=EB+EBR 

EB2=EB*EB 

EB2R=1./EB2 

PPSN=2.*B/(EB2-EB2R) 

C 

DO  40  J=2,JMAM 
AA(J)=-EB 
BB(J)=PSN 
CC(J)=-EBR 
40  DD(J)=O.DO 
C 

DO  170  I=1,IMAX 
DD(2)=-AA(2)*YP(I.1,K) 

DD (  JWAM ) =-CC ( JMAM ) *YP ( I , JMAX , K) 

C 

CALL  TRIDAG(2,J}1AM,AA,BB,CC,DD,T) 

C 

DO  379  J=2,JMAM 
379  YP(I,J,K)=T(J) 

170  CONTINUE 

10  continue: 

C 

DO  1000  ITY=1,500 
S0S=0 . 

DO  190  K=2,KMAM 
C=F3(K) 

DO  200  1=2, IMAM 
IF(I  .LT.  NA)THEN 
F2(I,K)=FA(K) 

ELSE  IF(I  .GT.  NB)  THEN 
r2(I,K)=FB(K) 

ELSE 

F2(I,X)=((NB-I)*FA(K)+(I-NA)*FB(K))/(NB-NA) 

END  IF 

A=F1(I) 

3=F2(I,X) 

IF(DABS(B)  .LT.  E?E)  B=DSIGN(EPE,B) 
E?A=DEXP(A) 

EPB=DEXP(B) 

EPC=DEXP(C) 

EPAI=1./EPA 

EPBI=1./EPB 

EPCI=1./EPC 

C0SHA=.5*(E?.A+E?AI) 

COSHB=.5*(EPB+EPBI) 

COSHC=.5*(EPC^EPCI) 

CSCHA=2./(EPA-£?a:) 

CSCH3=2./(E?3-£PBI) 

C  CSCKC=2./(EPC-£?CI) 

COrriA=COSHA*CSCKA 


COTHB=COSHB*CSCHB 
COTHC=COSHC*CSCHC 
DO  210  J=2,JMAM 
XXI=.S*(XP(I+1)-XP(I-1)) 

YXI=.S*(YP(I+1,J,K)-YP(I-1,J,K)) 

YET=.5*(YP(I,J+1,K)-YP(I,J-1,K)) 

YZT=.S*(YP(I,J,K+1)-YP(I,J,K-1)) 

ZXI=0. 

ZET=0. 

ZZT=0.5*(ZP(I,J,K+1)-ZP(I,J,K-1))*YP(I,J,K) 

A11=XXI*XXI+YXI*YXI+ZXI*ZXI 

A22=YET*YET+ZET^-ZET 

A33=YZT*YZT+ZZT*ZZT 

A12=YXI*YET+ZXI*ZET 

A13=YXI*YZT+ZXI*ZZT 

A23--YET*YZT+ZET*ZZT 

G=A 1 1*A22*A3  3+2 . *A 12*A 1 3*A23 - A23*A23*A 1 1 - 
3A13*A13*A22-A12*A12*A33 
GI=1./G 

G11=GI*(A22*A33-A23*A23) 

G22=GI*(A11*A33-A13*A13) 

G33=GI*(A11*A22-A12*A12) 

G12=GI*(A13*A23-A12*A33) 

G13=GI*(A12*A23-A13*A22) 

G23=GI*(A12*A13-A23*A11) 

AB=G22*B*CSCHB 

AA(J)=-AB*EPB 

BB(J)=2.*(G1 1*A*C0THA+G22*B*C0THB+G3  3 ) 

CC(J)=-AB*EPBI 

DD(J)=.5*G12*(YP(I+1,J+1,K)+YP(I-1,J-1,K)-YP(I-1,J+1,K) 
S  -YP(I+1,J»1,K))+G11*A*CSCHA*(EPA*YP(I-1,J,K) 

$  +EPAI*YP ( 1+ 1 , J , K) )+G33* (EPC*YP ( I , J , K- 1 ) 

S  +EPCI*YP(I,J,K+1))+0.5*(G13*(YP(I+1,J,K+1) 

S  +YP(I-1,J,K-1)-YP(I+1,J,K-1)-YP(I-1,J,K+1)) 

$  +G23*(YP(I,J+1,K+1)+YP(I,J-1,K-1)-YP(I,J+1,K-1) 

$  -YP(I,J-1,K+1))) 

210  CONTINUE 

DD(2)=DD(2)-AA(2)*Y?(I , 1 ,K) 

DD ( JMAM ) =DD ( JMAM ) -C C ( JMAH ) * YP ( I , JMAX , K ) 

CALL  TRIDAG(2,JMAM,AA,BB,CC,DD,T) 

DO  220  J=2,JMAM 
YT=T(J)-YP(I,J,K) 

IF(DABS(SOS)  .LT.  DABS(YT))  SOS=YT 
220  YP(I,J,K)=1.8*T(J)-0.8*YP(I,J,K) 

200  CONTINUE 

Y1=YP(1,JMAX,K)-YP(1,1,K) 

Y2=YP(2,J>IAX,K)-YP(2,1,K) 

DO  666  J=2,JMAN 

YP(1,J,K)  =  (YP(2,J,K)  ■YP(2,1,K))*Y1/Y2+YP(1,1,K) 

YPf IMAX,J,K)=YP( IMAM, J,K)-YP( IMAM, 1,K)+YP(IMAX, 1,K) 

666  CONTINUE 


190  CONTINUE 


DO  478  I=2,IMAX 
DO  478  J=2,JMAM 
YP(I,J,1)=YP(I.J,3) 
YP(I,J,KMAX)=YP(I.J,KMAM-1) 

IF(DABS(SOS)  .LT.  0.00001)  GO  TO  999 

WRITE(1,222)  ITY,  SOS 
CONTINUE 

DO  444  K=2,KMAM 
F2(1,K)=FA(K) 

F2(IMAX,K)=FB(K) 

CONTINUE 

DO  555  I=1,IMAX 

F2(I,1)=F2(I,3) 

F2 ( I , KMAX)=F2 ( I ,  KMAM- 1 ) 

CONTINUE 

WRITE(6,300)(XP(I) ,I=1,IMAX) 

DO  540  K=1,KMAX 
DO  540  J=l,19 

WRITE(6,300)  (YP(I,J,K),I=1,IMAX) 
WRITE(6,300)  (F1(I),:=1,IMAX) 

DO  550  K=1,KMAX 

WRITE(6,300)  (F2(I,K),I=1,IMAX) 
CLOSE (6) 

FORMAT (5E 14. 7) 

FORMAT (IX, 6 I 10) 

FORMAT(I10,E12.4) 

CALL  EXIT 
END 


SUBROUTINE  TRIDAG  TO  SOLVE  ALGEBRAIC  EQUATIONS 
SIMULTANEOUSLY  FOR  EACH  ROW  OR  COLOUM 


SUBROUTINE  TRIDAG(IF,L,A,B,C,D,V) 

IMPLICIT  REAL*8(A-H,0-Z) 

DIMENSION  A(90) ,B(90) ,C(90) ,D(90) ,V(90) ,BETA(90) ,GAMMA(9 
BETA(!F)=B(IF) 

GAMMA(IF)=D(IF)/BETA(IF) 

iFPi=rF+i 


DO  1  I=IFP1,L 

BETA(I)=B(I)-A(I)*C(I-1)/BETA(I-1) 

1  GA.MMA(I)=(D(I)-A(I)*GAM.MA(I-1))/BETA(I) 
V(L)=GAMMA(L) 


LAST=L-IF 
DO  2  K=1,LAST 
I=L-K 

2  V(I)=GAMMA(I)-C(I)*V(I+1)/BETA(I) 
RETURN 
END 
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